1/*
2 * Copyright 1984-2012 The MathWorks, Inc.
3 * All Rights Reserved.
4 */
5
6/*
7 * Header File include/mllapack.h
8 * Auto generated by f2h.pl, do not modify by hand
9 */
10
11#if defined(_MSC_VER)
12# pragma once
13#endif
14#if defined(__GNUC__) && (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ > 3))
15# pragma once
16#endif
17
18#ifndef mllapack_h
19#define mllapack_h
20
21#if !defined(MW_HAVE_LAPACK_DECLS) && defined(_LAPACKE_H_) /* %#ok */
22#error "The files lapack.h and lapacke.h may not be simultaneously included because of conflicting declarations of LAPACK routines. Include at most one of these headers in each source file." /* %#ok */
23#else /* %#ok */
24#include <stddef.h>
25
26#if defined(_WIN32) || defined(__hpux)
27#define FORTRAN_WRAPPER(x) x
28#else
29#define FORTRAN_WRAPPER(x) x ## _
30#endif
31
32#ifndef COMPLEX_TYPES
33#define COMPLEX_TYPES
34 typedef struct{float r,i;} complex;
35 typedef struct{double r,i;} doublecomplex;
36#endif
37
38#ifdef __cplusplus
39 extern "C" {
40#endif
41
42
43/* Source: dlamch.f */
44#define dlamch FORTRAN_WRAPPER(dlamch)
45extern double dlamch(
46 const char *cmach
47);
48
49/* Source: dlamch.f */
50#define dlamc3 FORTRAN_WRAPPER(dlamc3)
51extern double dlamc3(
52 const double *a,
53 const double *b
54);
55
56/* Source: slamch.f */
57#define slamch FORTRAN_WRAPPER(slamch)
58#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
59extern double slamch(
60#else
61extern float slamch(
62#endif
63 const char *cmach
64);
65
66/* Source: slamch.f */
67#define slamc3 FORTRAN_WRAPPER(slamc3)
68#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
69extern double slamc3(
70#else
71extern float slamc3(
72#endif
73 const float *a,
74 const float *b
75);
76
77/* Source: cbbcsd.f */
78#define cbbcsd FORTRAN_WRAPPER(cbbcsd)
79extern void cbbcsd(
80 const char *jobu1,
81 const char *jobu2,
82 const char *jobv1t,
83 const char *jobv2t,
84 const char *trans,
85 const ptrdiff_t *m,
86 const ptrdiff_t *p,
87 const ptrdiff_t *q,
88 float *theta,
89 float *phi,
90 float *u1,
91 const ptrdiff_t *ldu1,
92 float *u2,
93 const ptrdiff_t *ldu2,
94 float *v1t,
95 const ptrdiff_t *ldv1t,
96 float *v2t,
97 const ptrdiff_t *ldv2t,
98 float *b11d,
99 float *b11e,
100 float *b12d,
101 float *b12e,
102 float *b21d,
103 float *b21e,
104 float *b22d,
105 float *b22e,
106 float *rwork,
107 const ptrdiff_t *lrwork,
108 ptrdiff_t *info
109);
110
111/* Source: cbdsqr.f */
112#define cbdsqr FORTRAN_WRAPPER(cbdsqr)
113extern void cbdsqr(
114 const char *uplo,
115 const ptrdiff_t *n,
116 const ptrdiff_t *ncvt,
117 const ptrdiff_t *nru,
118 const ptrdiff_t *ncc,
119 float *d,
120 float *e,
121 float *vt,
122 const ptrdiff_t *ldvt,
123 float *u,
124 const ptrdiff_t *ldu,
125 float *c,
126 const ptrdiff_t *ldc,
127 float *rwork,
128 ptrdiff_t *info
129);
130
131/* Source: cgbbrd.f */
132#define cgbbrd FORTRAN_WRAPPER(cgbbrd)
133extern void cgbbrd(
134 const char *vect,
135 const ptrdiff_t *m,
136 const ptrdiff_t *n,
137 const ptrdiff_t *ncc,
138 const ptrdiff_t *kl,
139 const ptrdiff_t *ku,
140 float *ab,
141 const ptrdiff_t *ldab,
142 float *d,
143 float *e,
144 float *q,
145 const ptrdiff_t *ldq,
146 float *pt,
147 const ptrdiff_t *ldpt,
148 float *c,
149 const ptrdiff_t *ldc,
150 float *work,
151 float *rwork,
152 ptrdiff_t *info
153);
154
155/* Source: cgbcon.f */
156#define cgbcon FORTRAN_WRAPPER(cgbcon)
157extern void cgbcon(
158 const char *norm,
159 const ptrdiff_t *n,
160 const ptrdiff_t *kl,
161 const ptrdiff_t *ku,
162 const float *ab,
163 const ptrdiff_t *ldab,
164 const ptrdiff_t *ipiv,
165 const float *anorm,
166 float *rcond,
167 float *work,
168 float *rwork,
169 ptrdiff_t *info
170);
171
172/* Source: cgbequ.f */
173#define cgbequ FORTRAN_WRAPPER(cgbequ)
174extern void cgbequ(
175 const ptrdiff_t *m,
176 const ptrdiff_t *n,
177 const ptrdiff_t *kl,
178 const ptrdiff_t *ku,
179 const float *ab,
180 const ptrdiff_t *ldab,
181 float *r,
182 float *c,
183 float *rowcnd,
184 float *colcnd,
185 float *amax,
186 ptrdiff_t *info
187);
188
189/* Source: cgbequb.f */
190#define cgbequb FORTRAN_WRAPPER(cgbequb)
191extern void cgbequb(
192 const ptrdiff_t *m,
193 const ptrdiff_t *n,
194 const ptrdiff_t *kl,
195 const ptrdiff_t *ku,
196 const float *ab,
197 const ptrdiff_t *ldab,
198 float *r,
199 float *c,
200 float *rowcnd,
201 float *colcnd,
202 float *amax,
203 ptrdiff_t *info
204);
205
206/* Source: cgbrfs.f */
207#define cgbrfs FORTRAN_WRAPPER(cgbrfs)
208extern void cgbrfs(
209 const char *trans,
210 const ptrdiff_t *n,
211 const ptrdiff_t *kl,
212 const ptrdiff_t *ku,
213 const ptrdiff_t *nrhs,
214 const float *ab,
215 const ptrdiff_t *ldab,
216 const float *afb,
217 const ptrdiff_t *ldafb,
218 const ptrdiff_t *ipiv,
219 const float *b,
220 const ptrdiff_t *ldb,
221 float *x,
222 const ptrdiff_t *ldx,
223 float *ferr,
224 float *berr,
225 float *work,
226 float *rwork,
227 ptrdiff_t *info
228);
229
230/* Source: cgbsv.f */
231#define cgbsv FORTRAN_WRAPPER(cgbsv)
232extern void cgbsv(
233 const ptrdiff_t *n,
234 const ptrdiff_t *kl,
235 const ptrdiff_t *ku,
236 const ptrdiff_t *nrhs,
237 float *ab,
238 const ptrdiff_t *ldab,
239 ptrdiff_t *ipiv,
240 float *b,
241 const ptrdiff_t *ldb,
242 ptrdiff_t *info
243);
244
245/* Source: cgbsvx.f */
246#define cgbsvx FORTRAN_WRAPPER(cgbsvx)
247extern void cgbsvx(
248 const char *fact,
249 const char *trans,
250 const ptrdiff_t *n,
251 const ptrdiff_t *kl,
252 const ptrdiff_t *ku,
253 const ptrdiff_t *nrhs,
254 float *ab,
255 const ptrdiff_t *ldab,
256 float *afb,
257 const ptrdiff_t *ldafb,
258 ptrdiff_t *ipiv,
259 char *equed,
260 float *r,
261 float *c,
262 float *b,
263 const ptrdiff_t *ldb,
264 float *x,
265 const ptrdiff_t *ldx,
266 float *rcond,
267 float *ferr,
268 float *berr,
269 float *work,
270 float *rwork,
271 ptrdiff_t *info
272);
273
274/* Source: cgbtf2.f */
275#define cgbtf2 FORTRAN_WRAPPER(cgbtf2)
276extern void cgbtf2(
277 const ptrdiff_t *m,
278 const ptrdiff_t *n,
279 const ptrdiff_t *kl,
280 const ptrdiff_t *ku,
281 float *ab,
282 const ptrdiff_t *ldab,
283 ptrdiff_t *ipiv,
284 ptrdiff_t *info
285);
286
287/* Source: cgbtrf.f */
288#define cgbtrf FORTRAN_WRAPPER(cgbtrf)
289extern void cgbtrf(
290 const ptrdiff_t *m,
291 const ptrdiff_t *n,
292 const ptrdiff_t *kl,
293 const ptrdiff_t *ku,
294 float *ab,
295 const ptrdiff_t *ldab,
296 ptrdiff_t *ipiv,
297 ptrdiff_t *info
298);
299
300/* Source: cgbtrs.f */
301#define cgbtrs FORTRAN_WRAPPER(cgbtrs)
302extern void cgbtrs(
303 const char *trans,
304 const ptrdiff_t *n,
305 const ptrdiff_t *kl,
306 const ptrdiff_t *ku,
307 const ptrdiff_t *nrhs,
308 const float *ab,
309 const ptrdiff_t *ldab,
310 const ptrdiff_t *ipiv,
311 float *b,
312 const ptrdiff_t *ldb,
313 ptrdiff_t *info
314);
315
316/* Source: cgebak.f */
317#define cgebak FORTRAN_WRAPPER(cgebak)
318extern void cgebak(
319 const char *job,
320 const char *side,
321 const ptrdiff_t *n,
322 const ptrdiff_t *ilo,
323 const ptrdiff_t *ihi,
324 const float *scale,
325 const ptrdiff_t *m,
326 float *v,
327 const ptrdiff_t *ldv,
328 ptrdiff_t *info
329);
330
331/* Source: cgebal.f */
332#define cgebal FORTRAN_WRAPPER(cgebal)
333extern void cgebal(
334 const char *job,
335 const ptrdiff_t *n,
336 float *a,
337 const ptrdiff_t *lda,
338 ptrdiff_t *ilo,
339 ptrdiff_t *ihi,
340 float *scale,
341 ptrdiff_t *info
342);
343
344/* Source: cgebd2.f */
345#define cgebd2 FORTRAN_WRAPPER(cgebd2)
346extern void cgebd2(
347 const ptrdiff_t *m,
348 const ptrdiff_t *n,
349 float *a,
350 const ptrdiff_t *lda,
351 float *d,
352 float *e,
353 float *tauq,
354 float *taup,
355 float *work,
356 ptrdiff_t *info
357);
358
359/* Source: cgebrd.f */
360#define cgebrd FORTRAN_WRAPPER(cgebrd)
361extern void cgebrd(
362 const ptrdiff_t *m,
363 const ptrdiff_t *n,
364 float *a,
365 const ptrdiff_t *lda,
366 float *d,
367 float *e,
368 float *tauq,
369 float *taup,
370 float *work,
371 const ptrdiff_t *lwork,
372 ptrdiff_t *info
373);
374
375/* Source: cgecon.f */
376#define cgecon FORTRAN_WRAPPER(cgecon)
377extern void cgecon(
378 const char *norm,
379 const ptrdiff_t *n,
380 const float *a,
381 const ptrdiff_t *lda,
382 const float *anorm,
383 float *rcond,
384 float *work,
385 float *rwork,
386 ptrdiff_t *info
387);
388
389/* Source: cgeequ.f */
390#define cgeequ FORTRAN_WRAPPER(cgeequ)
391extern void cgeequ(
392 const ptrdiff_t *m,
393 const ptrdiff_t *n,
394 const float *a,
395 const ptrdiff_t *lda,
396 float *r,
397 float *c,
398 float *rowcnd,
399 float *colcnd,
400 float *amax,
401 ptrdiff_t *info
402);
403
404/* Source: cgeequb.f */
405#define cgeequb FORTRAN_WRAPPER(cgeequb)
406extern void cgeequb(
407 const ptrdiff_t *m,
408 const ptrdiff_t *n,
409 const float *a,
410 const ptrdiff_t *lda,
411 float *r,
412 float *c,
413 float *rowcnd,
414 float *colcnd,
415 float *amax,
416 ptrdiff_t *info
417);
418
419/* Source: cgees.f */
420#define cgees FORTRAN_WRAPPER(cgees)
421extern void cgees(
422 const char *jobvs,
423 const char *sort,
424 ptrdiff_t (*select)(),
425 const ptrdiff_t *n,
426 float *a,
427 const ptrdiff_t *lda,
428 ptrdiff_t *sdim,
429 float *w,
430 float *vs,
431 const ptrdiff_t *ldvs,
432 float *work,
433 const ptrdiff_t *lwork,
434 float *rwork,
435 ptrdiff_t *bwork,
436 ptrdiff_t *info
437);
438
439/* Source: cgeesx.f */
440#define cgeesx FORTRAN_WRAPPER(cgeesx)
441extern void cgeesx(
442 const char *jobvs,
443 const char *sort,
444 ptrdiff_t (*select)(),
445 const char *sense,
446 const ptrdiff_t *n,
447 float *a,
448 const ptrdiff_t *lda,
449 ptrdiff_t *sdim,
450 float *w,
451 float *vs,
452 const ptrdiff_t *ldvs,
453 float *rconde,
454 float *rcondv,
455 float *work,
456 const ptrdiff_t *lwork,
457 float *rwork,
458 ptrdiff_t *bwork,
459 ptrdiff_t *info
460);
461
462/* Source: cgeev.f */
463#define cgeev FORTRAN_WRAPPER(cgeev)
464extern void cgeev(
465 const char *jobvl,
466 const char *jobvr,
467 const ptrdiff_t *n,
468 float *a,
469 const ptrdiff_t *lda,
470 float *w,
471 float *vl,
472 const ptrdiff_t *ldvl,
473 float *vr,
474 const ptrdiff_t *ldvr,
475 float *work,
476 const ptrdiff_t *lwork,
477 float *rwork,
478 ptrdiff_t *info
479);
480
481/* Source: cgeevx.f */
482#define cgeevx FORTRAN_WRAPPER(cgeevx)
483extern void cgeevx(
484 const char *balanc,
485 const char *jobvl,
486 const char *jobvr,
487 const char *sense,
488 const ptrdiff_t *n,
489 float *a,
490 const ptrdiff_t *lda,
491 float *w,
492 float *vl,
493 const ptrdiff_t *ldvl,
494 float *vr,
495 const ptrdiff_t *ldvr,
496 ptrdiff_t *ilo,
497 ptrdiff_t *ihi,
498 float *scale,
499 float *abnrm,
500 float *rconde,
501 float *rcondv,
502 float *work,
503 const ptrdiff_t *lwork,
504 float *rwork,
505 ptrdiff_t *info
506);
507
508/* Source: cgehd2.f */
509#define cgehd2 FORTRAN_WRAPPER(cgehd2)
510extern void cgehd2(
511 const ptrdiff_t *n,
512 const ptrdiff_t *ilo,
513 const ptrdiff_t *ihi,
514 float *a,
515 const ptrdiff_t *lda,
516 float *tau,
517 float *work,
518 ptrdiff_t *info
519);
520
521/* Source: cgehrd.f */
522#define cgehrd FORTRAN_WRAPPER(cgehrd)
523extern void cgehrd(
524 const ptrdiff_t *n,
525 const ptrdiff_t *ilo,
526 const ptrdiff_t *ihi,
527 float *a,
528 const ptrdiff_t *lda,
529 float *tau,
530 float *work,
531 const ptrdiff_t *lwork,
532 ptrdiff_t *info
533);
534
535/* Source: cgejsv.f */
536#define cgejsv FORTRAN_WRAPPER(cgejsv)
537extern void cgejsv(
538 const char *joba,
539 const char *jobu,
540 const char *jobv,
541 const char *jobr,
542 const char *jobt,
543 const char *jobp,
544 const ptrdiff_t *m,
545 const ptrdiff_t *n,
546 float *a,
547 const ptrdiff_t *lda,
548 float *sva,
549 float *u,
550 const ptrdiff_t *ldu,
551 float *v,
552 const ptrdiff_t *ldv,
553 float *cwork,
554 const ptrdiff_t *lwork,
555 float *rwork,
556 const ptrdiff_t *lrwork,
557 ptrdiff_t *iwork,
558 ptrdiff_t *info
559);
560
561/* Source: cgelq.f */
562#define cgelq FORTRAN_WRAPPER(cgelq)
563extern void cgelq(
564 const ptrdiff_t *m,
565 const ptrdiff_t *n,
566 float *a,
567 const ptrdiff_t *lda,
568 float *t,
569 const ptrdiff_t *tsize,
570 float *work,
571 const ptrdiff_t *lwork,
572 ptrdiff_t *info
573);
574
575/* Source: cgelq2.f */
576#define cgelq2 FORTRAN_WRAPPER(cgelq2)
577extern void cgelq2(
578 const ptrdiff_t *m,
579 const ptrdiff_t *n,
580 float *a,
581 const ptrdiff_t *lda,
582 float *tau,
583 float *work,
584 ptrdiff_t *info
585);
586
587/* Source: cgelqf.f */
588#define cgelqf FORTRAN_WRAPPER(cgelqf)
589extern void cgelqf(
590 const ptrdiff_t *m,
591 const ptrdiff_t *n,
592 float *a,
593 const ptrdiff_t *lda,
594 float *tau,
595 float *work,
596 const ptrdiff_t *lwork,
597 ptrdiff_t *info
598);
599
600/* Source: cgelqt.f */
601#define cgelqt FORTRAN_WRAPPER(cgelqt)
602extern void cgelqt(
603 const ptrdiff_t *m,
604 const ptrdiff_t *n,
605 const ptrdiff_t *mb,
606 float *a,
607 const ptrdiff_t *lda,
608 float *t,
609 const ptrdiff_t *ldt,
610 float *work,
611 ptrdiff_t *info
612);
613
614/* Source: cgelqt3.f */
615#define cgelqt3 FORTRAN_WRAPPER(cgelqt3)
616extern void cgelqt3(
617 const ptrdiff_t *m,
618 const ptrdiff_t *n,
619 float *a,
620 const ptrdiff_t *lda,
621 float *t,
622 const ptrdiff_t *ldt,
623 ptrdiff_t *info
624);
625
626/* Source: cgels.f */
627#define cgels FORTRAN_WRAPPER(cgels)
628extern void cgels(
629 const char *trans,
630 const ptrdiff_t *m,
631 const ptrdiff_t *n,
632 const ptrdiff_t *nrhs,
633 float *a,
634 const ptrdiff_t *lda,
635 float *b,
636 const ptrdiff_t *ldb,
637 float *work,
638 const ptrdiff_t *lwork,
639 ptrdiff_t *info
640);
641
642/* Source: cgelsd.f */
643#define cgelsd FORTRAN_WRAPPER(cgelsd)
644extern void cgelsd(
645 const ptrdiff_t *m,
646 const ptrdiff_t *n,
647 const ptrdiff_t *nrhs,
648 float *a,
649 const ptrdiff_t *lda,
650 float *b,
651 const ptrdiff_t *ldb,
652 float *s,
653 const float *rcond,
654 ptrdiff_t *rank,
655 float *work,
656 const ptrdiff_t *lwork,
657 float *rwork,
658 ptrdiff_t *iwork,
659 ptrdiff_t *info
660);
661
662/* Source: cgelss.f */
663#define cgelss FORTRAN_WRAPPER(cgelss)
664extern void cgelss(
665 const ptrdiff_t *m,
666 const ptrdiff_t *n,
667 const ptrdiff_t *nrhs,
668 float *a,
669 const ptrdiff_t *lda,
670 float *b,
671 const ptrdiff_t *ldb,
672 float *s,
673 const float *rcond,
674 ptrdiff_t *rank,
675 float *work,
676 const ptrdiff_t *lwork,
677 float *rwork,
678 ptrdiff_t *info
679);
680
681/* Source: cgelsy.f */
682#define cgelsy FORTRAN_WRAPPER(cgelsy)
683extern void cgelsy(
684 const ptrdiff_t *m,
685 const ptrdiff_t *n,
686 const ptrdiff_t *nrhs,
687 float *a,
688 const ptrdiff_t *lda,
689 float *b,
690 const ptrdiff_t *ldb,
691 ptrdiff_t *jpvt,
692 const float *rcond,
693 ptrdiff_t *rank,
694 float *work,
695 const ptrdiff_t *lwork,
696 float *rwork,
697 ptrdiff_t *info
698);
699
700/* Source: cgemlq.f */
701#define cgemlq FORTRAN_WRAPPER(cgemlq)
702extern void cgemlq(
703 const char *side,
704 const char *trans,
705 const ptrdiff_t *m,
706 const ptrdiff_t *n,
707 const ptrdiff_t *k,
708 const float *a,
709 const ptrdiff_t *lda,
710 const float *t,
711 const ptrdiff_t *tsize,
712 float *c,
713 const ptrdiff_t *ldc,
714 float *work,
715 const ptrdiff_t *lwork,
716 ptrdiff_t *info
717);
718
719/* Source: cgemlqt.f */
720#define cgemlqt FORTRAN_WRAPPER(cgemlqt)
721extern void cgemlqt(
722 const char *side,
723 const char *trans,
724 const ptrdiff_t *m,
725 const ptrdiff_t *n,
726 const ptrdiff_t *k,
727 const ptrdiff_t *mb,
728 const float *v,
729 const ptrdiff_t *ldv,
730 const float *t,
731 const ptrdiff_t *ldt,
732 float *c,
733 const ptrdiff_t *ldc,
734 float *work,
735 ptrdiff_t *info
736);
737
738/* Source: cgemqr.f */
739#define cgemqr FORTRAN_WRAPPER(cgemqr)
740extern void cgemqr(
741 const char *side,
742 const char *trans,
743 const ptrdiff_t *m,
744 const ptrdiff_t *n,
745 const ptrdiff_t *k,
746 const float *a,
747 const ptrdiff_t *lda,
748 const float *t,
749 const ptrdiff_t *tsize,
750 float *c,
751 const ptrdiff_t *ldc,
752 float *work,
753 const ptrdiff_t *lwork,
754 ptrdiff_t *info
755);
756
757/* Source: cgemqrt.f */
758#define cgemqrt FORTRAN_WRAPPER(cgemqrt)
759extern void cgemqrt(
760 const char *side,
761 const char *trans,
762 const ptrdiff_t *m,
763 const ptrdiff_t *n,
764 const ptrdiff_t *k,
765 const ptrdiff_t *nb,
766 const float *v,
767 const ptrdiff_t *ldv,
768 const float *t,
769 const ptrdiff_t *ldt,
770 float *c,
771 const ptrdiff_t *ldc,
772 float *work,
773 ptrdiff_t *info
774);
775
776/* Source: cgeql2.f */
777#define cgeql2 FORTRAN_WRAPPER(cgeql2)
778extern void cgeql2(
779 const ptrdiff_t *m,
780 const ptrdiff_t *n,
781 float *a,
782 const ptrdiff_t *lda,
783 float *tau,
784 float *work,
785 ptrdiff_t *info
786);
787
788/* Source: cgeqlf.f */
789#define cgeqlf FORTRAN_WRAPPER(cgeqlf)
790extern void cgeqlf(
791 const ptrdiff_t *m,
792 const ptrdiff_t *n,
793 float *a,
794 const ptrdiff_t *lda,
795 float *tau,
796 float *work,
797 const ptrdiff_t *lwork,
798 ptrdiff_t *info
799);
800
801/* Source: cgeqp3.f */
802#define cgeqp3 FORTRAN_WRAPPER(cgeqp3)
803extern void cgeqp3(
804 const ptrdiff_t *m,
805 const ptrdiff_t *n,
806 float *a,
807 const ptrdiff_t *lda,
808 ptrdiff_t *jpvt,
809 float *tau,
810 float *work,
811 const ptrdiff_t *lwork,
812 float *rwork,
813 ptrdiff_t *info
814);
815
816/* Source: cgeqr.f */
817#define cgeqr FORTRAN_WRAPPER(cgeqr)
818extern void cgeqr(
819 const ptrdiff_t *m,
820 const ptrdiff_t *n,
821 float *a,
822 const ptrdiff_t *lda,
823 float *t,
824 const ptrdiff_t *tsize,
825 float *work,
826 const ptrdiff_t *lwork,
827 ptrdiff_t *info
828);
829
830/* Source: cgeqr2.f */
831#define cgeqr2 FORTRAN_WRAPPER(cgeqr2)
832extern void cgeqr2(
833 const ptrdiff_t *m,
834 const ptrdiff_t *n,
835 float *a,
836 const ptrdiff_t *lda,
837 float *tau,
838 float *work,
839 ptrdiff_t *info
840);
841
842/* Source: cgeqr2p.f */
843#define cgeqr2p FORTRAN_WRAPPER(cgeqr2p)
844extern void cgeqr2p(
845 const ptrdiff_t *m,
846 const ptrdiff_t *n,
847 float *a,
848 const ptrdiff_t *lda,
849 float *tau,
850 float *work,
851 ptrdiff_t *info
852);
853
854/* Source: cgeqrf.f */
855#define cgeqrf FORTRAN_WRAPPER(cgeqrf)
856extern void cgeqrf(
857 const ptrdiff_t *m,
858 const ptrdiff_t *n,
859 float *a,
860 const ptrdiff_t *lda,
861 float *tau,
862 float *work,
863 const ptrdiff_t *lwork,
864 ptrdiff_t *info
865);
866
867/* Source: cgeqrfp.f */
868#define cgeqrfp FORTRAN_WRAPPER(cgeqrfp)
869extern void cgeqrfp(
870 const ptrdiff_t *m,
871 const ptrdiff_t *n,
872 float *a,
873 const ptrdiff_t *lda,
874 float *tau,
875 float *work,
876 const ptrdiff_t *lwork,
877 ptrdiff_t *info
878);
879
880/* Source: cgeqrt.f */
881#define cgeqrt FORTRAN_WRAPPER(cgeqrt)
882extern void cgeqrt(
883 const ptrdiff_t *m,
884 const ptrdiff_t *n,
885 const ptrdiff_t *nb,
886 float *a,
887 const ptrdiff_t *lda,
888 float *t,
889 const ptrdiff_t *ldt,
890 float *work,
891 ptrdiff_t *info
892);
893
894/* Source: cgeqrt2.f */
895#define cgeqrt2 FORTRAN_WRAPPER(cgeqrt2)
896extern void cgeqrt2(
897 const ptrdiff_t *m,
898 const ptrdiff_t *n,
899 float *a,
900 const ptrdiff_t *lda,
901 float *t,
902 const ptrdiff_t *ldt,
903 ptrdiff_t *info
904);
905
906/* Source: cgeqrt3.f */
907#define cgeqrt3 FORTRAN_WRAPPER(cgeqrt3)
908extern void cgeqrt3(
909 const ptrdiff_t *m,
910 const ptrdiff_t *n,
911 float *a,
912 const ptrdiff_t *lda,
913 float *t,
914 const ptrdiff_t *ldt,
915 ptrdiff_t *info
916);
917
918/* Source: cgerfs.f */
919#define cgerfs FORTRAN_WRAPPER(cgerfs)
920extern void cgerfs(
921 const char *trans,
922 const ptrdiff_t *n,
923 const ptrdiff_t *nrhs,
924 const float *a,
925 const ptrdiff_t *lda,
926 const float *af,
927 const ptrdiff_t *ldaf,
928 const ptrdiff_t *ipiv,
929 const float *b,
930 const ptrdiff_t *ldb,
931 float *x,
932 const ptrdiff_t *ldx,
933 float *ferr,
934 float *berr,
935 float *work,
936 float *rwork,
937 ptrdiff_t *info
938);
939
940/* Source: cgerq2.f */
941#define cgerq2 FORTRAN_WRAPPER(cgerq2)
942extern void cgerq2(
943 const ptrdiff_t *m,
944 const ptrdiff_t *n,
945 float *a,
946 const ptrdiff_t *lda,
947 float *tau,
948 float *work,
949 ptrdiff_t *info
950);
951
952/* Source: cgerqf.f */
953#define cgerqf FORTRAN_WRAPPER(cgerqf)
954extern void cgerqf(
955 const ptrdiff_t *m,
956 const ptrdiff_t *n,
957 float *a,
958 const ptrdiff_t *lda,
959 float *tau,
960 float *work,
961 const ptrdiff_t *lwork,
962 ptrdiff_t *info
963);
964
965/* Source: cgesc2.f */
966#define cgesc2 FORTRAN_WRAPPER(cgesc2)
967extern void cgesc2(
968 const ptrdiff_t *n,
969 const float *a,
970 const ptrdiff_t *lda,
971 float *rhs,
972 const ptrdiff_t *ipiv,
973 const ptrdiff_t *jpiv,
974 float *scale
975);
976
977/* Source: cgesdd.f */
978#define cgesdd FORTRAN_WRAPPER(cgesdd)
979extern void cgesdd(
980 const char *jobz,
981 const ptrdiff_t *m,
982 const ptrdiff_t *n,
983 float *a,
984 const ptrdiff_t *lda,
985 float *s,
986 float *u,
987 const ptrdiff_t *ldu,
988 float *vt,
989 const ptrdiff_t *ldvt,
990 float *work,
991 const ptrdiff_t *lwork,
992 float *rwork,
993 ptrdiff_t *iwork,
994 ptrdiff_t *info
995);
996
997/* Source: cgesv.f */
998#define cgesv FORTRAN_WRAPPER(cgesv)
999extern void cgesv(
1000 const ptrdiff_t *n,
1001 const ptrdiff_t *nrhs,
1002 float *a,
1003 const ptrdiff_t *lda,
1004 ptrdiff_t *ipiv,
1005 float *b,
1006 const ptrdiff_t *ldb,
1007 ptrdiff_t *info
1008);
1009
1010/* Source: cgesvd.f */
1011#define cgesvd FORTRAN_WRAPPER(cgesvd)
1012extern void cgesvd(
1013 const char *jobu,
1014 const char *jobvt,
1015 const ptrdiff_t *m,
1016 const ptrdiff_t *n,
1017 float *a,
1018 const ptrdiff_t *lda,
1019 float *s,
1020 float *u,
1021 const ptrdiff_t *ldu,
1022 float *vt,
1023 const ptrdiff_t *ldvt,
1024 float *work,
1025 const ptrdiff_t *lwork,
1026 float *rwork,
1027 ptrdiff_t *info
1028);
1029
1030/* Source: cgesvdx.f */
1031#define cgesvdx FORTRAN_WRAPPER(cgesvdx)
1032extern void cgesvdx(
1033 const char *jobu,
1034 const char *jobvt,
1035 const char *range,
1036 const ptrdiff_t *m,
1037 const ptrdiff_t *n,
1038 float *a,
1039 const ptrdiff_t *lda,
1040 const float *vl,
1041 const float *vu,
1042 const ptrdiff_t *il,
1043 const ptrdiff_t *iu,
1044 ptrdiff_t *ns,
1045 float *s,
1046 float *u,
1047 const ptrdiff_t *ldu,
1048 float *vt,
1049 const ptrdiff_t *ldvt,
1050 float *work,
1051 const ptrdiff_t *lwork,
1052 float *rwork,
1053 ptrdiff_t *iwork,
1054 ptrdiff_t *info
1055);
1056
1057/* Source: cgesvj.f */
1058#define cgesvj FORTRAN_WRAPPER(cgesvj)
1059extern void cgesvj(
1060 const char *joba,
1061 const char *jobu,
1062 const char *jobv,
1063 const ptrdiff_t *m,
1064 const ptrdiff_t *n,
1065 float *a,
1066 const ptrdiff_t *lda,
1067 float *sva,
1068 const ptrdiff_t *mv,
1069 float *v,
1070 const ptrdiff_t *ldv,
1071 float *cwork,
1072 const ptrdiff_t *lwork,
1073 float *rwork,
1074 const ptrdiff_t *lrwork,
1075 ptrdiff_t *info
1076);
1077
1078/* Source: cgesvx.f */
1079#define cgesvx FORTRAN_WRAPPER(cgesvx)
1080extern void cgesvx(
1081 const char *fact,
1082 const char *trans,
1083 const ptrdiff_t *n,
1084 const ptrdiff_t *nrhs,
1085 float *a,
1086 const ptrdiff_t *lda,
1087 float *af,
1088 const ptrdiff_t *ldaf,
1089 ptrdiff_t *ipiv,
1090 char *equed,
1091 float *r,
1092 float *c,
1093 float *b,
1094 const ptrdiff_t *ldb,
1095 float *x,
1096 const ptrdiff_t *ldx,
1097 float *rcond,
1098 float *ferr,
1099 float *berr,
1100 float *work,
1101 float *rwork,
1102 ptrdiff_t *info
1103);
1104
1105/* Source: cgetc2.f */
1106#define cgetc2 FORTRAN_WRAPPER(cgetc2)
1107extern void cgetc2(
1108 const ptrdiff_t *n,
1109 float *a,
1110 const ptrdiff_t *lda,
1111 ptrdiff_t *ipiv,
1112 ptrdiff_t *jpiv,
1113 ptrdiff_t *info
1114);
1115
1116/* Source: cgetf2.f */
1117#define cgetf2 FORTRAN_WRAPPER(cgetf2)
1118extern void cgetf2(
1119 const ptrdiff_t *m,
1120 const ptrdiff_t *n,
1121 float *a,
1122 const ptrdiff_t *lda,
1123 ptrdiff_t *ipiv,
1124 ptrdiff_t *info
1125);
1126
1127/* Source: cgetrf.f */
1128#define cgetrf FORTRAN_WRAPPER(cgetrf)
1129extern void cgetrf(
1130 const ptrdiff_t *m,
1131 const ptrdiff_t *n,
1132 float *a,
1133 const ptrdiff_t *lda,
1134 ptrdiff_t *ipiv,
1135 ptrdiff_t *info
1136);
1137
1138/* Source: cgetrf2.f */
1139#define cgetrf2 FORTRAN_WRAPPER(cgetrf2)
1140extern void cgetrf2(
1141 const ptrdiff_t *m,
1142 const ptrdiff_t *n,
1143 float *a,
1144 const ptrdiff_t *lda,
1145 ptrdiff_t *ipiv,
1146 ptrdiff_t *info
1147);
1148
1149/* Source: cgetri.f */
1150#define cgetri FORTRAN_WRAPPER(cgetri)
1151extern void cgetri(
1152 const ptrdiff_t *n,
1153 float *a,
1154 const ptrdiff_t *lda,
1155 const ptrdiff_t *ipiv,
1156 float *work,
1157 const ptrdiff_t *lwork,
1158 ptrdiff_t *info
1159);
1160
1161/* Source: cgetrs.f */
1162#define cgetrs FORTRAN_WRAPPER(cgetrs)
1163extern void cgetrs(
1164 const char *trans,
1165 const ptrdiff_t *n,
1166 const ptrdiff_t *nrhs,
1167 const float *a,
1168 const ptrdiff_t *lda,
1169 const ptrdiff_t *ipiv,
1170 float *b,
1171 const ptrdiff_t *ldb,
1172 ptrdiff_t *info
1173);
1174
1175/* Source: cgetsls.f */
1176#define cgetsls FORTRAN_WRAPPER(cgetsls)
1177extern void cgetsls(
1178 const char *trans,
1179 const ptrdiff_t *m,
1180 const ptrdiff_t *n,
1181 const ptrdiff_t *nrhs,
1182 float *a,
1183 const ptrdiff_t *lda,
1184 float *b,
1185 const ptrdiff_t *ldb,
1186 float *work,
1187 const ptrdiff_t *lwork,
1188 ptrdiff_t *info
1189);
1190
1191/* Source: cggbak.f */
1192#define cggbak FORTRAN_WRAPPER(cggbak)
1193extern void cggbak(
1194 const char *job,
1195 const char *side,
1196 const ptrdiff_t *n,
1197 const ptrdiff_t *ilo,
1198 const ptrdiff_t *ihi,
1199 const float *lscale,
1200 const float *rscale,
1201 const ptrdiff_t *m,
1202 float *v,
1203 const ptrdiff_t *ldv,
1204 ptrdiff_t *info
1205);
1206
1207/* Source: cggbal.f */
1208#define cggbal FORTRAN_WRAPPER(cggbal)
1209extern void cggbal(
1210 const char *job,
1211 const ptrdiff_t *n,
1212 float *a,
1213 const ptrdiff_t *lda,
1214 float *b,
1215 const ptrdiff_t *ldb,
1216 ptrdiff_t *ilo,
1217 ptrdiff_t *ihi,
1218 float *lscale,
1219 float *rscale,
1220 float *work,
1221 ptrdiff_t *info
1222);
1223
1224/* Source: cgges.f */
1225#define cgges FORTRAN_WRAPPER(cgges)
1226extern void cgges(
1227 const char *jobvsl,
1228 const char *jobvsr,
1229 const char *sort,
1230 ptrdiff_t (*selctg)(),
1231 const ptrdiff_t *n,
1232 float *a,
1233 const ptrdiff_t *lda,
1234 float *b,
1235 const ptrdiff_t *ldb,
1236 ptrdiff_t *sdim,
1237 float *alpha,
1238 float *beta,
1239 float *vsl,
1240 const ptrdiff_t *ldvsl,
1241 float *vsr,
1242 const ptrdiff_t *ldvsr,
1243 float *work,
1244 const ptrdiff_t *lwork,
1245 float *rwork,
1246 ptrdiff_t *bwork,
1247 ptrdiff_t *info
1248);
1249
1250/* Source: cgges3.f */
1251#define cgges3 FORTRAN_WRAPPER(cgges3)
1252extern void cgges3(
1253 const char *jobvsl,
1254 const char *jobvsr,
1255 const char *sort,
1256 ptrdiff_t (*selctg)(),
1257 const ptrdiff_t *n,
1258 float *a,
1259 const ptrdiff_t *lda,
1260 float *b,
1261 const ptrdiff_t *ldb,
1262 ptrdiff_t *sdim,
1263 float *alpha,
1264 float *beta,
1265 float *vsl,
1266 const ptrdiff_t *ldvsl,
1267 float *vsr,
1268 const ptrdiff_t *ldvsr,
1269 float *work,
1270 const ptrdiff_t *lwork,
1271 float *rwork,
1272 ptrdiff_t *bwork,
1273 ptrdiff_t *info
1274);
1275
1276/* Source: cggesx.f */
1277#define cggesx FORTRAN_WRAPPER(cggesx)
1278extern void cggesx(
1279 const char *jobvsl,
1280 const char *jobvsr,
1281 const char *sort,
1282 ptrdiff_t (*selctg)(),
1283 const char *sense,
1284 const ptrdiff_t *n,
1285 float *a,
1286 const ptrdiff_t *lda,
1287 float *b,
1288 const ptrdiff_t *ldb,
1289 ptrdiff_t *sdim,
1290 float *alpha,
1291 float *beta,
1292 float *vsl,
1293 const ptrdiff_t *ldvsl,
1294 float *vsr,
1295 const ptrdiff_t *ldvsr,
1296 float *rconde,
1297 float *rcondv,
1298 float *work,
1299 const ptrdiff_t *lwork,
1300 float *rwork,
1301 ptrdiff_t *iwork,
1302 const ptrdiff_t *liwork,
1303 ptrdiff_t *bwork,
1304 ptrdiff_t *info
1305);
1306
1307/* Source: cggev.f */
1308#define cggev FORTRAN_WRAPPER(cggev)
1309extern void cggev(
1310 const char *jobvl,
1311 const char *jobvr,
1312 const ptrdiff_t *n,
1313 float *a,
1314 const ptrdiff_t *lda,
1315 float *b,
1316 const ptrdiff_t *ldb,
1317 float *alpha,
1318 float *beta,
1319 float *vl,
1320 const ptrdiff_t *ldvl,
1321 float *vr,
1322 const ptrdiff_t *ldvr,
1323 float *work,
1324 const ptrdiff_t *lwork,
1325 float *rwork,
1326 ptrdiff_t *info
1327);
1328
1329/* Source: cggev3.f */
1330#define cggev3 FORTRAN_WRAPPER(cggev3)
1331extern void cggev3(
1332 const char *jobvl,
1333 const char *jobvr,
1334 const ptrdiff_t *n,
1335 float *a,
1336 const ptrdiff_t *lda,
1337 float *b,
1338 const ptrdiff_t *ldb,
1339 float *alpha,
1340 float *beta,
1341 float *vl,
1342 const ptrdiff_t *ldvl,
1343 float *vr,
1344 const ptrdiff_t *ldvr,
1345 float *work,
1346 const ptrdiff_t *lwork,
1347 float *rwork,
1348 ptrdiff_t *info
1349);
1350
1351/* Source: cggevx.f */
1352#define cggevx FORTRAN_WRAPPER(cggevx)
1353extern void cggevx(
1354 const char *balanc,
1355 const char *jobvl,
1356 const char *jobvr,
1357 const char *sense,
1358 const ptrdiff_t *n,
1359 float *a,
1360 const ptrdiff_t *lda,
1361 float *b,
1362 const ptrdiff_t *ldb,
1363 float *alpha,
1364 float *beta,
1365 float *vl,
1366 const ptrdiff_t *ldvl,
1367 float *vr,
1368 const ptrdiff_t *ldvr,
1369 ptrdiff_t *ilo,
1370 ptrdiff_t *ihi,
1371 float *lscale,
1372 float *rscale,
1373 float *abnrm,
1374 float *bbnrm,
1375 float *rconde,
1376 float *rcondv,
1377 float *work,
1378 const ptrdiff_t *lwork,
1379 float *rwork,
1380 ptrdiff_t *iwork,
1381 ptrdiff_t *bwork,
1382 ptrdiff_t *info
1383);
1384
1385/* Source: cggglm.f */
1386#define cggglm FORTRAN_WRAPPER(cggglm)
1387extern void cggglm(
1388 const ptrdiff_t *n,
1389 const ptrdiff_t *m,
1390 const ptrdiff_t *p,
1391 float *a,
1392 const ptrdiff_t *lda,
1393 float *b,
1394 const ptrdiff_t *ldb,
1395 float *d,
1396 float *x,
1397 float *y,
1398 float *work,
1399 const ptrdiff_t *lwork,
1400 ptrdiff_t *info
1401);
1402
1403/* Source: cgghd3.f */
1404#define cgghd3 FORTRAN_WRAPPER(cgghd3)
1405extern void cgghd3(
1406 const char *compq,
1407 const char *compz,
1408 const ptrdiff_t *n,
1409 const ptrdiff_t *ilo,
1410 const ptrdiff_t *ihi,
1411 float *a,
1412 const ptrdiff_t *lda,
1413 float *b,
1414 const ptrdiff_t *ldb,
1415 float *q,
1416 const ptrdiff_t *ldq,
1417 float *z,
1418 const ptrdiff_t *ldz,
1419 float *work,
1420 const ptrdiff_t *lwork,
1421 ptrdiff_t *info
1422);
1423
1424/* Source: cgghrd.f */
1425#define cgghrd FORTRAN_WRAPPER(cgghrd)
1426extern void cgghrd(
1427 const char *compq,
1428 const char *compz,
1429 const ptrdiff_t *n,
1430 const ptrdiff_t *ilo,
1431 const ptrdiff_t *ihi,
1432 float *a,
1433 const ptrdiff_t *lda,
1434 float *b,
1435 const ptrdiff_t *ldb,
1436 float *q,
1437 const ptrdiff_t *ldq,
1438 float *z,
1439 const ptrdiff_t *ldz,
1440 ptrdiff_t *info
1441);
1442
1443/* Source: cgglse.f */
1444#define cgglse FORTRAN_WRAPPER(cgglse)
1445extern void cgglse(
1446 const ptrdiff_t *m,
1447 const ptrdiff_t *n,
1448 const ptrdiff_t *p,
1449 float *a,
1450 const ptrdiff_t *lda,
1451 float *b,
1452 const ptrdiff_t *ldb,
1453 float *c,
1454 float *d,
1455 float *x,
1456 float *work,
1457 const ptrdiff_t *lwork,
1458 ptrdiff_t *info
1459);
1460
1461/* Source: cggqrf.f */
1462#define cggqrf FORTRAN_WRAPPER(cggqrf)
1463extern void cggqrf(
1464 const ptrdiff_t *n,
1465 const ptrdiff_t *m,
1466 const ptrdiff_t *p,
1467 float *a,
1468 const ptrdiff_t *lda,
1469 float *taua,
1470 float *b,
1471 const ptrdiff_t *ldb,
1472 float *taub,
1473 float *work,
1474 const ptrdiff_t *lwork,
1475 ptrdiff_t *info
1476);
1477
1478/* Source: cggrqf.f */
1479#define cggrqf FORTRAN_WRAPPER(cggrqf)
1480extern void cggrqf(
1481 const ptrdiff_t *m,
1482 const ptrdiff_t *p,
1483 const ptrdiff_t *n,
1484 float *a,
1485 const ptrdiff_t *lda,
1486 float *taua,
1487 float *b,
1488 const ptrdiff_t *ldb,
1489 float *taub,
1490 float *work,
1491 const ptrdiff_t *lwork,
1492 ptrdiff_t *info
1493);
1494
1495/* Source: cggsvd3.f */
1496#define cggsvd3 FORTRAN_WRAPPER(cggsvd3)
1497extern void cggsvd3(
1498 const char *jobu,
1499 const char *jobv,
1500 const char *jobq,
1501 const ptrdiff_t *m,
1502 const ptrdiff_t *n,
1503 const ptrdiff_t *p,
1504 ptrdiff_t *k,
1505 ptrdiff_t *l,
1506 float *a,
1507 const ptrdiff_t *lda,
1508 float *b,
1509 const ptrdiff_t *ldb,
1510 float *alpha,
1511 float *beta,
1512 float *u,
1513 const ptrdiff_t *ldu,
1514 float *v,
1515 const ptrdiff_t *ldv,
1516 float *q,
1517 const ptrdiff_t *ldq,
1518 float *work,
1519 const ptrdiff_t *lwork,
1520 float *rwork,
1521 ptrdiff_t *iwork,
1522 ptrdiff_t *info
1523);
1524
1525/* Source: cggsvp3.f */
1526#define cggsvp3 FORTRAN_WRAPPER(cggsvp3)
1527extern void cggsvp3(
1528 const char *jobu,
1529 const char *jobv,
1530 const char *jobq,
1531 const ptrdiff_t *m,
1532 const ptrdiff_t *p,
1533 const ptrdiff_t *n,
1534 float *a,
1535 const ptrdiff_t *lda,
1536 float *b,
1537 const ptrdiff_t *ldb,
1538 const float *tola,
1539 const float *tolb,
1540 ptrdiff_t *k,
1541 ptrdiff_t *l,
1542 float *u,
1543 const ptrdiff_t *ldu,
1544 float *v,
1545 const ptrdiff_t *ldv,
1546 float *q,
1547 const ptrdiff_t *ldq,
1548 ptrdiff_t *iwork,
1549 float *rwork,
1550 float *tau,
1551 float *work,
1552 const ptrdiff_t *lwork,
1553 ptrdiff_t *info
1554);
1555
1556/* Source: cgsvj0.f */
1557#define cgsvj0 FORTRAN_WRAPPER(cgsvj0)
1558extern void cgsvj0(
1559 const char *jobv,
1560 const ptrdiff_t *m,
1561 const ptrdiff_t *n,
1562 float *a,
1563 const ptrdiff_t *lda,
1564 float *d,
1565 float *sva,
1566 const ptrdiff_t *mv,
1567 float *v,
1568 const ptrdiff_t *ldv,
1569 const float *eps,
1570 const float *sfmin,
1571 const float *tol,
1572 const ptrdiff_t *nsweep,
1573 float *work,
1574 const ptrdiff_t *lwork,
1575 ptrdiff_t *info
1576);
1577
1578/* Source: cgsvj1.f */
1579#define cgsvj1 FORTRAN_WRAPPER(cgsvj1)
1580extern void cgsvj1(
1581 const char *jobv,
1582 const ptrdiff_t *m,
1583 const ptrdiff_t *n,
1584 const ptrdiff_t *n1,
1585 float *a,
1586 const ptrdiff_t *lda,
1587 float *d,
1588 float *sva,
1589 const ptrdiff_t *mv,
1590 float *v,
1591 const ptrdiff_t *ldv,
1592 const float *eps,
1593 const float *sfmin,
1594 const float *tol,
1595 const ptrdiff_t *nsweep,
1596 float *work,
1597 const ptrdiff_t *lwork,
1598 ptrdiff_t *info
1599);
1600
1601/* Source: cgtcon.f */
1602#define cgtcon FORTRAN_WRAPPER(cgtcon)
1603extern void cgtcon(
1604 const char *norm,
1605 const ptrdiff_t *n,
1606 const float *dl,
1607 const float *d,
1608 const float *du,
1609 const float *du2,
1610 const ptrdiff_t *ipiv,
1611 const float *anorm,
1612 float *rcond,
1613 float *work,
1614 ptrdiff_t *info
1615);
1616
1617/* Source: cgtrfs.f */
1618#define cgtrfs FORTRAN_WRAPPER(cgtrfs)
1619extern void cgtrfs(
1620 const char *trans,
1621 const ptrdiff_t *n,
1622 const ptrdiff_t *nrhs,
1623 const float *dl,
1624 const float *d,
1625 const float *du,
1626 const float *dlf,
1627 const float *df,
1628 const float *duf,
1629 const float *du2,
1630 const ptrdiff_t *ipiv,
1631 const float *b,
1632 const ptrdiff_t *ldb,
1633 float *x,
1634 const ptrdiff_t *ldx,
1635 float *ferr,
1636 float *berr,
1637 float *work,
1638 float *rwork,
1639 ptrdiff_t *info
1640);
1641
1642/* Source: cgtsv.f */
1643#define cgtsv FORTRAN_WRAPPER(cgtsv)
1644extern void cgtsv(
1645 const ptrdiff_t *n,
1646 const ptrdiff_t *nrhs,
1647 float *dl,
1648 float *d,
1649 float *du,
1650 float *b,
1651 const ptrdiff_t *ldb,
1652 ptrdiff_t *info
1653);
1654
1655/* Source: cgtsvx.f */
1656#define cgtsvx FORTRAN_WRAPPER(cgtsvx)
1657extern void cgtsvx(
1658 const char *fact,
1659 const char *trans,
1660 const ptrdiff_t *n,
1661 const ptrdiff_t *nrhs,
1662 const float *dl,
1663 const float *d,
1664 const float *du,
1665 float *dlf,
1666 float *df,
1667 float *duf,
1668 float *du2,
1669 ptrdiff_t *ipiv,
1670 const float *b,
1671 const ptrdiff_t *ldb,
1672 float *x,
1673 const ptrdiff_t *ldx,
1674 float *rcond,
1675 float *ferr,
1676 float *berr,
1677 float *work,
1678 float *rwork,
1679 ptrdiff_t *info
1680);
1681
1682/* Source: cgttrf.f */
1683#define cgttrf FORTRAN_WRAPPER(cgttrf)
1684extern void cgttrf(
1685 const ptrdiff_t *n,
1686 float *dl,
1687 float *d,
1688 float *du,
1689 float *du2,
1690 ptrdiff_t *ipiv,
1691 ptrdiff_t *info
1692);
1693
1694/* Source: cgttrs.f */
1695#define cgttrs FORTRAN_WRAPPER(cgttrs)
1696extern void cgttrs(
1697 const char *trans,
1698 const ptrdiff_t *n,
1699 const ptrdiff_t *nrhs,
1700 const float *dl,
1701 const float *d,
1702 const float *du,
1703 const float *du2,
1704 const ptrdiff_t *ipiv,
1705 float *b,
1706 const ptrdiff_t *ldb,
1707 ptrdiff_t *info
1708);
1709
1710/* Source: cgtts2.f */
1711#define cgtts2 FORTRAN_WRAPPER(cgtts2)
1712extern void cgtts2(
1713 const ptrdiff_t *itrans,
1714 const ptrdiff_t *n,
1715 const ptrdiff_t *nrhs,
1716 const float *dl,
1717 const float *d,
1718 const float *du,
1719 const float *du2,
1720 const ptrdiff_t *ipiv,
1721 float *b,
1722 const ptrdiff_t *ldb
1723);
1724
1725/* Source: chb2st_kernels.f */
1726#define chb2st_kernels FORTRAN_WRAPPER(chb2st_kernels)
1727extern void chb2st_kernels(
1728 char *uplo,
1729 ptrdiff_t *wantz,
1730 ptrdiff_t *ttype,
1731 ptrdiff_t *st,
1732 ptrdiff_t *ed,
1733 ptrdiff_t *sweep,
1734 ptrdiff_t *n,
1735 ptrdiff_t *nb,
1736 ptrdiff_t *ib,
1737 float *a,
1738 ptrdiff_t *lda,
1739 float *v,
1740 float *tau,
1741 ptrdiff_t *ldvt,
1742 float *work
1743);
1744
1745/* Source: chbev.f */
1746#define chbev FORTRAN_WRAPPER(chbev)
1747extern void chbev(
1748 const char *jobz,
1749 const char *uplo,
1750 const ptrdiff_t *n,
1751 const ptrdiff_t *kd,
1752 float *ab,
1753 const ptrdiff_t *ldab,
1754 float *w,
1755 float *z,
1756 const ptrdiff_t *ldz,
1757 float *work,
1758 float *rwork,
1759 ptrdiff_t *info
1760);
1761
1762/* Source: chbev_2stage.f */
1763#define chbev_2stage FORTRAN_WRAPPER(chbev_2stage)
1764extern void chbev_2stage(
1765 char *jobz,
1766 char *uplo,
1767 ptrdiff_t *n,
1768 ptrdiff_t *kd,
1769 float *ab,
1770 ptrdiff_t *ldab,
1771 float *w,
1772 float *z,
1773 ptrdiff_t *ldz,
1774 float *work,
1775 ptrdiff_t *lwork,
1776 float *rwork,
1777 ptrdiff_t *info
1778);
1779
1780/* Source: chbevd.f */
1781#define chbevd FORTRAN_WRAPPER(chbevd)
1782extern void chbevd(
1783 const char *jobz,
1784 const char *uplo,
1785 const ptrdiff_t *n,
1786 const ptrdiff_t *kd,
1787 float *ab,
1788 const ptrdiff_t *ldab,
1789 float *w,
1790 float *z,
1791 const ptrdiff_t *ldz,
1792 float *work,
1793 const ptrdiff_t *lwork,
1794 float *rwork,
1795 const ptrdiff_t *lrwork,
1796 ptrdiff_t *iwork,
1797 const ptrdiff_t *liwork,
1798 ptrdiff_t *info
1799);
1800
1801/* Source: chbevd_2stage.f */
1802#define chbevd_2stage FORTRAN_WRAPPER(chbevd_2stage)
1803extern void chbevd_2stage(
1804 char *jobz,
1805 char *uplo,
1806 ptrdiff_t *n,
1807 ptrdiff_t *kd,
1808 float *ab,
1809 ptrdiff_t *ldab,
1810 float *w,
1811 float *z,
1812 ptrdiff_t *ldz,
1813 float *work,
1814 ptrdiff_t *lwork,
1815 float *rwork,
1816 ptrdiff_t *lrwork,
1817 ptrdiff_t *iwork,
1818 ptrdiff_t *liwork,
1819 ptrdiff_t *info
1820);
1821
1822/* Source: chbevx.f */
1823#define chbevx FORTRAN_WRAPPER(chbevx)
1824extern void chbevx(
1825 const char *jobz,
1826 const char *range,
1827 const char *uplo,
1828 const ptrdiff_t *n,
1829 const ptrdiff_t *kd,
1830 float *ab,
1831 const ptrdiff_t *ldab,
1832 float *q,
1833 const ptrdiff_t *ldq,
1834 const float *vl,
1835 const float *vu,
1836 const ptrdiff_t *il,
1837 const ptrdiff_t *iu,
1838 const float *abstol,
1839 ptrdiff_t *m,
1840 float *w,
1841 float *z,
1842 const ptrdiff_t *ldz,
1843 float *work,
1844 float *rwork,
1845 ptrdiff_t *iwork,
1846 ptrdiff_t *ifail,
1847 ptrdiff_t *info
1848);
1849
1850/* Source: chbevx_2stage.f */
1851#define chbevx_2stage FORTRAN_WRAPPER(chbevx_2stage)
1852extern void chbevx_2stage(
1853 char *jobz,
1854 char *range,
1855 char *uplo,
1856 ptrdiff_t *n,
1857 ptrdiff_t *kd,
1858 float *ab,
1859 ptrdiff_t *ldab,
1860 float *q,
1861 ptrdiff_t *ldq,
1862 float *vl,
1863 float *vu,
1864 ptrdiff_t *il,
1865 ptrdiff_t *iu,
1866 float *abstol,
1867 ptrdiff_t *m,
1868 float *w,
1869 float *z,
1870 ptrdiff_t *ldz,
1871 float *work,
1872 ptrdiff_t *lwork,
1873 float *rwork,
1874 ptrdiff_t *iwork,
1875 ptrdiff_t *ifail,
1876 ptrdiff_t *info
1877);
1878
1879/* Source: chbgst.f */
1880#define chbgst FORTRAN_WRAPPER(chbgst)
1881extern void chbgst(
1882 const char *vect,
1883 const char *uplo,
1884 const ptrdiff_t *n,
1885 const ptrdiff_t *ka,
1886 const ptrdiff_t *kb,
1887 float *ab,
1888 const ptrdiff_t *ldab,
1889 const float *bb,
1890 const ptrdiff_t *ldbb,
1891 float *x,
1892 const ptrdiff_t *ldx,
1893 float *work,
1894 float *rwork,
1895 ptrdiff_t *info
1896);
1897
1898/* Source: chbgv.f */
1899#define chbgv FORTRAN_WRAPPER(chbgv)
1900extern void chbgv(
1901 const char *jobz,
1902 const char *uplo,
1903 const ptrdiff_t *n,
1904 const ptrdiff_t *ka,
1905 const ptrdiff_t *kb,
1906 float *ab,
1907 const ptrdiff_t *ldab,
1908 float *bb,
1909 const ptrdiff_t *ldbb,
1910 float *w,
1911 float *z,
1912 const ptrdiff_t *ldz,
1913 float *work,
1914 float *rwork,
1915 ptrdiff_t *info
1916);
1917
1918/* Source: chbgvd.f */
1919#define chbgvd FORTRAN_WRAPPER(chbgvd)
1920extern void chbgvd(
1921 const char *jobz,
1922 const char *uplo,
1923 const ptrdiff_t *n,
1924 const ptrdiff_t *ka,
1925 const ptrdiff_t *kb,
1926 float *ab,
1927 const ptrdiff_t *ldab,
1928 float *bb,
1929 const ptrdiff_t *ldbb,
1930 float *w,
1931 float *z,
1932 const ptrdiff_t *ldz,
1933 float *work,
1934 const ptrdiff_t *lwork,
1935 float *rwork,
1936 const ptrdiff_t *lrwork,
1937 ptrdiff_t *iwork,
1938 const ptrdiff_t *liwork,
1939 ptrdiff_t *info
1940);
1941
1942/* Source: chbgvx.f */
1943#define chbgvx FORTRAN_WRAPPER(chbgvx)
1944extern void chbgvx(
1945 const char *jobz,
1946 const char *range,
1947 const char *uplo,
1948 const ptrdiff_t *n,
1949 const ptrdiff_t *ka,
1950 const ptrdiff_t *kb,
1951 float *ab,
1952 const ptrdiff_t *ldab,
1953 float *bb,
1954 const ptrdiff_t *ldbb,
1955 float *q,
1956 const ptrdiff_t *ldq,
1957 const float *vl,
1958 const float *vu,
1959 const ptrdiff_t *il,
1960 const ptrdiff_t *iu,
1961 const float *abstol,
1962 ptrdiff_t *m,
1963 float *w,
1964 float *z,
1965 const ptrdiff_t *ldz,
1966 float *work,
1967 float *rwork,
1968 ptrdiff_t *iwork,
1969 ptrdiff_t *ifail,
1970 ptrdiff_t *info
1971);
1972
1973/* Source: chbtrd.f */
1974#define chbtrd FORTRAN_WRAPPER(chbtrd)
1975extern void chbtrd(
1976 const char *vect,
1977 const char *uplo,
1978 const ptrdiff_t *n,
1979 const ptrdiff_t *kd,
1980 float *ab,
1981 const ptrdiff_t *ldab,
1982 float *d,
1983 float *e,
1984 float *q,
1985 const ptrdiff_t *ldq,
1986 float *work,
1987 ptrdiff_t *info
1988);
1989
1990/* Source: checon.f */
1991#define checon FORTRAN_WRAPPER(checon)
1992extern void checon(
1993 const char *uplo,
1994 const ptrdiff_t *n,
1995 const float *a,
1996 const ptrdiff_t *lda,
1997 const ptrdiff_t *ipiv,
1998 const float *anorm,
1999 float *rcond,
2000 float *work,
2001 ptrdiff_t *info
2002);
2003
2004/* Source: checon_3.f */
2005#define checon_3 FORTRAN_WRAPPER(checon_3)
2006extern void checon_3(
2007 char *uplo,
2008 ptrdiff_t *n,
2009 float *a,
2010 ptrdiff_t *lda,
2011 float *e,
2012 ptrdiff_t *ipiv,
2013 float *anorm,
2014 float *rcond,
2015 float *work,
2016 ptrdiff_t *info
2017);
2018
2019/* Source: checon_rook.f */
2020#define checon_rook FORTRAN_WRAPPER(checon_rook)
2021extern void checon_rook(
2022 const char *uplo,
2023 const ptrdiff_t *n,
2024 const float *a,
2025 const ptrdiff_t *lda,
2026 const ptrdiff_t *ipiv,
2027 const float *anorm,
2028 float *rcond,
2029 float *work,
2030 ptrdiff_t *info
2031);
2032
2033/* Source: cheequb.f */
2034#define cheequb FORTRAN_WRAPPER(cheequb)
2035extern void cheequb(
2036 char *uplo,
2037 const ptrdiff_t *n,
2038 const float *a,
2039 const ptrdiff_t *lda,
2040 float *s,
2041 float *scond,
2042 float *amax,
2043 float *work,
2044 ptrdiff_t *info
2045);
2046
2047/* Source: cheev.f */
2048#define cheev FORTRAN_WRAPPER(cheev)
2049extern void cheev(
2050 const char *jobz,
2051 const char *uplo,
2052 const ptrdiff_t *n,
2053 float *a,
2054 const ptrdiff_t *lda,
2055 float *w,
2056 float *work,
2057 const ptrdiff_t *lwork,
2058 float *rwork,
2059 ptrdiff_t *info
2060);
2061
2062/* Source: cheev_2stage.f */
2063#define cheev_2stage FORTRAN_WRAPPER(cheev_2stage)
2064extern void cheev_2stage(
2065 char *jobz,
2066 char *uplo,
2067 ptrdiff_t *n,
2068 float *a,
2069 ptrdiff_t *lda,
2070 float *w,
2071 float *work,
2072 ptrdiff_t *lwork,
2073 float *rwork,
2074 ptrdiff_t *info
2075);
2076
2077/* Source: cheevd.f */
2078#define cheevd FORTRAN_WRAPPER(cheevd)
2079extern void cheevd(
2080 const char *jobz,
2081 const char *uplo,
2082 const ptrdiff_t *n,
2083 float *a,
2084 const ptrdiff_t *lda,
2085 float *w,
2086 float *work,
2087 const ptrdiff_t *lwork,
2088 float *rwork,
2089 const ptrdiff_t *lrwork,
2090 ptrdiff_t *iwork,
2091 const ptrdiff_t *liwork,
2092 ptrdiff_t *info
2093);
2094
2095/* Source: cheevd_2stage.f */
2096#define cheevd_2stage FORTRAN_WRAPPER(cheevd_2stage)
2097extern void cheevd_2stage(
2098 char *jobz,
2099 char *uplo,
2100 ptrdiff_t *n,
2101 float *a,
2102 ptrdiff_t *lda,
2103 float *w,
2104 float *work,
2105 ptrdiff_t *lwork,
2106 float *rwork,
2107 ptrdiff_t *lrwork,
2108 ptrdiff_t *iwork,
2109 ptrdiff_t *liwork,
2110 ptrdiff_t *info
2111);
2112
2113/* Source: cheevr.f */
2114#define cheevr FORTRAN_WRAPPER(cheevr)
2115extern void cheevr(
2116 const char *jobz,
2117 const char *range,
2118 const char *uplo,
2119 const ptrdiff_t *n,
2120 float *a,
2121 const ptrdiff_t *lda,
2122 const float *vl,
2123 const float *vu,
2124 const ptrdiff_t *il,
2125 const ptrdiff_t *iu,
2126 const float *abstol,
2127 ptrdiff_t *m,
2128 float *w,
2129 float *z,
2130 const ptrdiff_t *ldz,
2131 ptrdiff_t *isuppz,
2132 float *work,
2133 const ptrdiff_t *lwork,
2134 float *rwork,
2135 const ptrdiff_t *lrwork,
2136 ptrdiff_t *iwork,
2137 const ptrdiff_t *liwork,
2138 ptrdiff_t *info
2139);
2140
2141/* Source: cheevr_2stage.f */
2142#define cheevr_2stage FORTRAN_WRAPPER(cheevr_2stage)
2143extern void cheevr_2stage(
2144 char *jobz,
2145 char *range,
2146 char *uplo,
2147 ptrdiff_t *n,
2148 float *a,
2149 ptrdiff_t *lda,
2150 float *vl,
2151 float *vu,
2152 ptrdiff_t *il,
2153 ptrdiff_t *iu,
2154 float *abstol,
2155 ptrdiff_t *m,
2156 float *w,
2157 float *z,
2158 ptrdiff_t *ldz,
2159 ptrdiff_t *isuppz,
2160 float *work,
2161 ptrdiff_t *lwork,
2162 float *rwork,
2163 ptrdiff_t *lrwork,
2164 ptrdiff_t *iwork,
2165 ptrdiff_t *liwork,
2166 ptrdiff_t *info
2167);
2168
2169/* Source: cheevx.f */
2170#define cheevx FORTRAN_WRAPPER(cheevx)
2171extern void cheevx(
2172 const char *jobz,
2173 const char *range,
2174 const char *uplo,
2175 const ptrdiff_t *n,
2176 float *a,
2177 const ptrdiff_t *lda,
2178 const float *vl,
2179 const float *vu,
2180 const ptrdiff_t *il,
2181 const ptrdiff_t *iu,
2182 const float *abstol,
2183 ptrdiff_t *m,
2184 float *w,
2185 float *z,
2186 const ptrdiff_t *ldz,
2187 float *work,
2188 const ptrdiff_t *lwork,
2189 float *rwork,
2190 ptrdiff_t *iwork,
2191 ptrdiff_t *ifail,
2192 ptrdiff_t *info
2193);
2194
2195/* Source: cheevx_2stage.f */
2196#define cheevx_2stage FORTRAN_WRAPPER(cheevx_2stage)
2197extern void cheevx_2stage(
2198 char *jobz,
2199 char *range,
2200 char *uplo,
2201 ptrdiff_t *n,
2202 float *a,
2203 ptrdiff_t *lda,
2204 float *vl,
2205 float *vu,
2206 ptrdiff_t *il,
2207 ptrdiff_t *iu,
2208 float *abstol,
2209 ptrdiff_t *m,
2210 float *w,
2211 float *z,
2212 ptrdiff_t *ldz,
2213 float *work,
2214 ptrdiff_t *lwork,
2215 float *rwork,
2216 ptrdiff_t *iwork,
2217 ptrdiff_t *ifail,
2218 ptrdiff_t *info
2219);
2220
2221/* Source: chegs2.f */
2222#define chegs2 FORTRAN_WRAPPER(chegs2)
2223extern void chegs2(
2224 const ptrdiff_t *itype,
2225 const char *uplo,
2226 const ptrdiff_t *n,
2227 float *a,
2228 const ptrdiff_t *lda,
2229 const float *b,
2230 const ptrdiff_t *ldb,
2231 ptrdiff_t *info
2232);
2233
2234/* Source: chegst.f */
2235#define chegst FORTRAN_WRAPPER(chegst)
2236extern void chegst(
2237 const ptrdiff_t *itype,
2238 const char *uplo,
2239 const ptrdiff_t *n,
2240 float *a,
2241 const ptrdiff_t *lda,
2242 const float *b,
2243 const ptrdiff_t *ldb,
2244 ptrdiff_t *info
2245);
2246
2247/* Source: chegv.f */
2248#define chegv FORTRAN_WRAPPER(chegv)
2249extern void chegv(
2250 const ptrdiff_t *itype,
2251 const char *jobz,
2252 const char *uplo,
2253 const ptrdiff_t *n,
2254 float *a,
2255 const ptrdiff_t *lda,
2256 float *b,
2257 const ptrdiff_t *ldb,
2258 float *w,
2259 float *work,
2260 const ptrdiff_t *lwork,
2261 float *rwork,
2262 ptrdiff_t *info
2263);
2264
2265/* Source: chegv_2stage.f */
2266#define chegv_2stage FORTRAN_WRAPPER(chegv_2stage)
2267extern void chegv_2stage(
2268 ptrdiff_t *itype,
2269 char *jobz,
2270 char *uplo,
2271 ptrdiff_t *n,
2272 float *a,
2273 ptrdiff_t *lda,
2274 float *b,
2275 ptrdiff_t *ldb,
2276 float *w,
2277 float *work,
2278 ptrdiff_t *lwork,
2279 float *rwork,
2280 ptrdiff_t *info
2281);
2282
2283/* Source: chegvd.f */
2284#define chegvd FORTRAN_WRAPPER(chegvd)
2285extern void chegvd(
2286 const ptrdiff_t *itype,
2287 const char *jobz,
2288 const char *uplo,
2289 const ptrdiff_t *n,
2290 float *a,
2291 const ptrdiff_t *lda,
2292 float *b,
2293 const ptrdiff_t *ldb,
2294 float *w,
2295 float *work,
2296 const ptrdiff_t *lwork,
2297 float *rwork,
2298 const ptrdiff_t *lrwork,
2299 ptrdiff_t *iwork,
2300 const ptrdiff_t *liwork,
2301 ptrdiff_t *info
2302);
2303
2304/* Source: chegvx.f */
2305#define chegvx FORTRAN_WRAPPER(chegvx)
2306extern void chegvx(
2307 const ptrdiff_t *itype,
2308 const char *jobz,
2309 const char *range,
2310 const char *uplo,
2311 const ptrdiff_t *n,
2312 float *a,
2313 const ptrdiff_t *lda,
2314 float *b,
2315 const ptrdiff_t *ldb,
2316 const float *vl,
2317 const float *vu,
2318 const ptrdiff_t *il,
2319 const ptrdiff_t *iu,
2320 const float *abstol,
2321 ptrdiff_t *m,
2322 float *w,
2323 float *z,
2324 const ptrdiff_t *ldz,
2325 float *work,
2326 const ptrdiff_t *lwork,
2327 float *rwork,
2328 ptrdiff_t *iwork,
2329 ptrdiff_t *ifail,
2330 ptrdiff_t *info
2331);
2332
2333/* Source: cherfs.f */
2334#define cherfs FORTRAN_WRAPPER(cherfs)
2335extern void cherfs(
2336 const char *uplo,
2337 const ptrdiff_t *n,
2338 const ptrdiff_t *nrhs,
2339 const float *a,
2340 const ptrdiff_t *lda,
2341 const float *af,
2342 const ptrdiff_t *ldaf,
2343 const ptrdiff_t *ipiv,
2344 const float *b,
2345 const ptrdiff_t *ldb,
2346 float *x,
2347 const ptrdiff_t *ldx,
2348 float *ferr,
2349 float *berr,
2350 float *work,
2351 float *rwork,
2352 ptrdiff_t *info
2353);
2354
2355/* Source: chesv.f */
2356#define chesv FORTRAN_WRAPPER(chesv)
2357extern void chesv(
2358 const char *uplo,
2359 const ptrdiff_t *n,
2360 const ptrdiff_t *nrhs,
2361 float *a,
2362 const ptrdiff_t *lda,
2363 ptrdiff_t *ipiv,
2364 float *b,
2365 const ptrdiff_t *ldb,
2366 float *work,
2367 const ptrdiff_t *lwork,
2368 ptrdiff_t *info
2369);
2370
2371/* Source: chesv_aa.f */
2372#define chesv_aa FORTRAN_WRAPPER(chesv_aa)
2373extern void chesv_aa(
2374 const char *uplo,
2375 const ptrdiff_t *n,
2376 const ptrdiff_t *nrhs,
2377 float *a,
2378 const ptrdiff_t *lda,
2379 ptrdiff_t *ipiv,
2380 float *b,
2381 const ptrdiff_t *ldb,
2382 float *work,
2383 const ptrdiff_t *lwork,
2384 ptrdiff_t *info
2385);
2386
2387/* Source: chesv_rk.f */
2388#define chesv_rk FORTRAN_WRAPPER(chesv_rk)
2389extern void chesv_rk(
2390 char *uplo,
2391 ptrdiff_t *n,
2392 ptrdiff_t *nrhs,
2393 float *a,
2394 ptrdiff_t *lda,
2395 float *e,
2396 ptrdiff_t *ipiv,
2397 float *b,
2398 ptrdiff_t *ldb,
2399 float *work,
2400 ptrdiff_t *lwork,
2401 ptrdiff_t *info
2402);
2403
2404/* Source: chesv_rook.f */
2405#define chesv_rook FORTRAN_WRAPPER(chesv_rook)
2406extern void chesv_rook(
2407 const char *uplo,
2408 const ptrdiff_t *n,
2409 const ptrdiff_t *nrhs,
2410 float *a,
2411 const ptrdiff_t *lda,
2412 ptrdiff_t *ipiv,
2413 float *b,
2414 const ptrdiff_t *ldb,
2415 float *work,
2416 const ptrdiff_t *lwork,
2417 ptrdiff_t *info
2418);
2419
2420/* Source: chesvx.f */
2421#define chesvx FORTRAN_WRAPPER(chesvx)
2422extern void chesvx(
2423 const char *fact,
2424 const char *uplo,
2425 const ptrdiff_t *n,
2426 const ptrdiff_t *nrhs,
2427 const float *a,
2428 const ptrdiff_t *lda,
2429 float *af,
2430 const ptrdiff_t *ldaf,
2431 ptrdiff_t *ipiv,
2432 const float *b,
2433 const ptrdiff_t *ldb,
2434 float *x,
2435 const ptrdiff_t *ldx,
2436 float *rcond,
2437 float *ferr,
2438 float *berr,
2439 float *work,
2440 const ptrdiff_t *lwork,
2441 float *rwork,
2442 ptrdiff_t *info
2443);
2444
2445/* Source: cheswapr.f */
2446#define cheswapr FORTRAN_WRAPPER(cheswapr)
2447extern void cheswapr(
2448 const char *uplo,
2449 const ptrdiff_t *n,
2450 float *a,
2451 const ptrdiff_t *lda,
2452 const ptrdiff_t *i1,
2453 const ptrdiff_t *i2
2454);
2455
2456/* Source: chetd2.f */
2457#define chetd2 FORTRAN_WRAPPER(chetd2)
2458extern void chetd2(
2459 const char *uplo,
2460 const ptrdiff_t *n,
2461 float *a,
2462 const ptrdiff_t *lda,
2463 float *d,
2464 float *e,
2465 float *tau,
2466 ptrdiff_t *info
2467);
2468
2469/* Source: chetf2.f */
2470#define chetf2 FORTRAN_WRAPPER(chetf2)
2471extern void chetf2(
2472 const char *uplo,
2473 const ptrdiff_t *n,
2474 float *a,
2475 const ptrdiff_t *lda,
2476 ptrdiff_t *ipiv,
2477 ptrdiff_t *info
2478);
2479
2480/* Source: chetf2_rk.f */
2481#define chetf2_rk FORTRAN_WRAPPER(chetf2_rk)
2482extern void chetf2_rk(
2483 char *uplo,
2484 ptrdiff_t *n,
2485 float *a,
2486 ptrdiff_t *lda,
2487 float *e,
2488 ptrdiff_t *ipiv,
2489 ptrdiff_t *info
2490);
2491
2492/* Source: chetf2_rook.f */
2493#define chetf2_rook FORTRAN_WRAPPER(chetf2_rook)
2494extern void chetf2_rook(
2495 const char *uplo,
2496 const ptrdiff_t *n,
2497 float *a,
2498 const ptrdiff_t *lda,
2499 ptrdiff_t *ipiv,
2500 ptrdiff_t *info
2501);
2502
2503/* Source: chetrd.f */
2504#define chetrd FORTRAN_WRAPPER(chetrd)
2505extern void chetrd(
2506 const char *uplo,
2507 const ptrdiff_t *n,
2508 float *a,
2509 const ptrdiff_t *lda,
2510 float *d,
2511 float *e,
2512 float *tau,
2513 float *work,
2514 const ptrdiff_t *lwork,
2515 ptrdiff_t *info
2516);
2517
2518/* Source: chetrd_2stage.f */
2519#define chetrd_2stage FORTRAN_WRAPPER(chetrd_2stage)
2520extern void chetrd_2stage(
2521 char *vect,
2522 char *uplo,
2523 ptrdiff_t *n,
2524 float *a,
2525 ptrdiff_t *lda,
2526 float *d,
2527 float *e,
2528 float *tau,
2529 float *hous2,
2530 ptrdiff_t *lhous2,
2531 float *work,
2532 ptrdiff_t *lwork,
2533 ptrdiff_t *info
2534);
2535
2536/* Source: chetrd_hb2st.f */
2537#define chetrd_hb2st FORTRAN_WRAPPER(chetrd_hb2st)
2538extern void chetrd_hb2st(
2539 char *stage1,
2540 char *vect,
2541 char *uplo,
2542 ptrdiff_t *n,
2543 ptrdiff_t *kd,
2544 float *ab,
2545 ptrdiff_t *ldab,
2546 float *d,
2547 float *e,
2548 float *hous,
2549 ptrdiff_t *lhous,
2550 float *work,
2551 ptrdiff_t *lwork,
2552 ptrdiff_t *info
2553);
2554
2555/* Source: chetrd_he2hb.f */
2556#define chetrd_he2hb FORTRAN_WRAPPER(chetrd_he2hb)
2557extern void chetrd_he2hb(
2558 char *uplo,
2559 ptrdiff_t *n,
2560 ptrdiff_t *kd,
2561 float *a,
2562 ptrdiff_t *lda,
2563 float *ab,
2564 ptrdiff_t *ldab,
2565 float *tau,
2566 float *work,
2567 ptrdiff_t *lwork,
2568 ptrdiff_t *info
2569);
2570
2571/* Source: chetrf.f */
2572#define chetrf FORTRAN_WRAPPER(chetrf)
2573extern void chetrf(
2574 const char *uplo,
2575 const ptrdiff_t *n,
2576 float *a,
2577 const ptrdiff_t *lda,
2578 ptrdiff_t *ipiv,
2579 float *work,
2580 const ptrdiff_t *lwork,
2581 ptrdiff_t *info
2582);
2583
2584/* Source: chetrf_aa.f */
2585#define chetrf_aa FORTRAN_WRAPPER(chetrf_aa)
2586extern void chetrf_aa(
2587 const char *uplo,
2588 const ptrdiff_t *n,
2589 float *a,
2590 const ptrdiff_t *lda,
2591 ptrdiff_t *ipiv,
2592 float *work,
2593 const ptrdiff_t *lwork,
2594 ptrdiff_t *info
2595);
2596
2597/* Source: chetrf_rk.f */
2598#define chetrf_rk FORTRAN_WRAPPER(chetrf_rk)
2599extern void chetrf_rk(
2600 char *uplo,
2601 ptrdiff_t *n,
2602 float *a,
2603 ptrdiff_t *lda,
2604 float *e,
2605 ptrdiff_t *ipiv,
2606 float *work,
2607 ptrdiff_t *lwork,
2608 ptrdiff_t *info
2609);
2610
2611/* Source: chetrf_rook.f */
2612#define chetrf_rook FORTRAN_WRAPPER(chetrf_rook)
2613extern void chetrf_rook(
2614 const char *uplo,
2615 const ptrdiff_t *n,
2616 float *a,
2617 const ptrdiff_t *lda,
2618 ptrdiff_t *ipiv,
2619 float *work,
2620 const ptrdiff_t *lwork,
2621 ptrdiff_t *info
2622);
2623
2624/* Source: chetri.f */
2625#define chetri FORTRAN_WRAPPER(chetri)
2626extern void chetri(
2627 const char *uplo,
2628 const ptrdiff_t *n,
2629 float *a,
2630 const ptrdiff_t *lda,
2631 const ptrdiff_t *ipiv,
2632 float *work,
2633 ptrdiff_t *info
2634);
2635
2636/* Source: chetri2.f */
2637#define chetri2 FORTRAN_WRAPPER(chetri2)
2638extern void chetri2(
2639 const char *uplo,
2640 const ptrdiff_t *n,
2641 float *a,
2642 const ptrdiff_t *lda,
2643 const ptrdiff_t *ipiv,
2644 float *work,
2645 const ptrdiff_t *lwork,
2646 ptrdiff_t *info
2647);
2648
2649/* Source: chetri2x.f */
2650#define chetri2x FORTRAN_WRAPPER(chetri2x)
2651extern void chetri2x(
2652 const char *uplo,
2653 const ptrdiff_t *n,
2654 float *a,
2655 const ptrdiff_t *lda,
2656 const ptrdiff_t *ipiv,
2657 float *work,
2658 const ptrdiff_t *nb,
2659 ptrdiff_t *info
2660);
2661
2662/* Source: chetri_3.f */
2663#define chetri_3 FORTRAN_WRAPPER(chetri_3)
2664extern void chetri_3(
2665 char *uplo,
2666 ptrdiff_t *n,
2667 float *a,
2668 ptrdiff_t *lda,
2669 float *e,
2670 ptrdiff_t *ipiv,
2671 float *work,
2672 ptrdiff_t *lwork,
2673 ptrdiff_t *info
2674);
2675
2676/* Source: chetri_3x.f */
2677#define chetri_3x FORTRAN_WRAPPER(chetri_3x)
2678extern void chetri_3x(
2679 char *uplo,
2680 ptrdiff_t *n,
2681 float *a,
2682 ptrdiff_t *lda,
2683 float *e,
2684 ptrdiff_t *ipiv,
2685 float *work,
2686 ptrdiff_t *nb,
2687 ptrdiff_t *info
2688);
2689
2690/* Source: chetri_rook.f */
2691#define chetri_rook FORTRAN_WRAPPER(chetri_rook)
2692extern void chetri_rook(
2693 const char *uplo,
2694 const ptrdiff_t *n,
2695 float *a,
2696 const ptrdiff_t *lda,
2697 const ptrdiff_t *ipiv,
2698 float *work,
2699 ptrdiff_t *info
2700);
2701
2702/* Source: chetrs.f */
2703#define chetrs FORTRAN_WRAPPER(chetrs)
2704extern void chetrs(
2705 const char *uplo,
2706 const ptrdiff_t *n,
2707 const ptrdiff_t *nrhs,
2708 const float *a,
2709 const ptrdiff_t *lda,
2710 const ptrdiff_t *ipiv,
2711 float *b,
2712 const ptrdiff_t *ldb,
2713 ptrdiff_t *info
2714);
2715
2716/* Source: chetrs2.f */
2717#define chetrs2 FORTRAN_WRAPPER(chetrs2)
2718extern void chetrs2(
2719 const char *uplo,
2720 const ptrdiff_t *n,
2721 const ptrdiff_t *nrhs,
2722 const float *a,
2723 const ptrdiff_t *lda,
2724 const ptrdiff_t *ipiv,
2725 float *b,
2726 const ptrdiff_t *ldb,
2727 float *work,
2728 ptrdiff_t *info
2729);
2730
2731/* Source: chetrs_3.f */
2732#define chetrs_3 FORTRAN_WRAPPER(chetrs_3)
2733extern void chetrs_3(
2734 char *uplo,
2735 ptrdiff_t *n,
2736 ptrdiff_t *nrhs,
2737 float *a,
2738 ptrdiff_t *lda,
2739 float *e,
2740 ptrdiff_t *ipiv,
2741 float *b,
2742 ptrdiff_t *ldb,
2743 ptrdiff_t *info
2744);
2745
2746/* Source: chetrs_aa.f */
2747#define chetrs_aa FORTRAN_WRAPPER(chetrs_aa)
2748extern void chetrs_aa(
2749 const char *uplo,
2750 const ptrdiff_t *n,
2751 const ptrdiff_t *nrhs,
2752 const float *a,
2753 const ptrdiff_t *lda,
2754 const ptrdiff_t *ipiv,
2755 float *b,
2756 const ptrdiff_t *ldb,
2757 const float *work,
2758 const ptrdiff_t *lwork,
2759 ptrdiff_t *info
2760);
2761
2762/* Source: chetrs_rook.f */
2763#define chetrs_rook FORTRAN_WRAPPER(chetrs_rook)
2764extern void chetrs_rook(
2765 const char *uplo,
2766 const ptrdiff_t *n,
2767 const ptrdiff_t *nrhs,
2768 const float *a,
2769 const ptrdiff_t *lda,
2770 const ptrdiff_t *ipiv,
2771 float *b,
2772 const ptrdiff_t *ldb,
2773 ptrdiff_t *info
2774);
2775
2776/* Source: chfrk.f */
2777#define chfrk FORTRAN_WRAPPER(chfrk)
2778extern void chfrk(
2779 const char *transr,
2780 const char *uplo,
2781 const char *trans,
2782 const ptrdiff_t *n,
2783 const ptrdiff_t *k,
2784 const float *alpha,
2785 const float *a,
2786 const ptrdiff_t *lda,
2787 const float *beta,
2788 float *c
2789);
2790
2791/* Source: chgeqz.f */
2792#define chgeqz FORTRAN_WRAPPER(chgeqz)
2793extern void chgeqz(
2794 const char *job,
2795 const char *compq,
2796 const char *compz,
2797 const ptrdiff_t *n,
2798 const ptrdiff_t *ilo,
2799 const ptrdiff_t *ihi,
2800 float *h,
2801 const ptrdiff_t *ldh,
2802 float *t,
2803 const ptrdiff_t *ldt,
2804 float *alpha,
2805 float *beta,
2806 float *q,
2807 const ptrdiff_t *ldq,
2808 float *z,
2809 const ptrdiff_t *ldz,
2810 float *work,
2811 const ptrdiff_t *lwork,
2812 float *rwork,
2813 ptrdiff_t *info
2814);
2815
2816/* Source: chla_transtype.f */
2817#define chla_transtype FORTRAN_WRAPPER(chla_transtype)
2818extern char chla_transtype(
2819 const ptrdiff_t *trans
2820);
2821
2822/* Source: chpcon.f */
2823#define chpcon FORTRAN_WRAPPER(chpcon)
2824extern void chpcon(
2825 const char *uplo,
2826 const ptrdiff_t *n,
2827 const float *ap,
2828 const ptrdiff_t *ipiv,
2829 const float *anorm,
2830 float *rcond,
2831 float *work,
2832 ptrdiff_t *info
2833);
2834
2835/* Source: chpev.f */
2836#define chpev FORTRAN_WRAPPER(chpev)
2837extern void chpev(
2838 const char *jobz,
2839 const char *uplo,
2840 const ptrdiff_t *n,
2841 float *ap,
2842 float *w,
2843 float *z,
2844 const ptrdiff_t *ldz,
2845 float *work,
2846 float *rwork,
2847 ptrdiff_t *info
2848);
2849
2850/* Source: chpevd.f */
2851#define chpevd FORTRAN_WRAPPER(chpevd)
2852extern void chpevd(
2853 const char *jobz,
2854 const char *uplo,
2855 const ptrdiff_t *n,
2856 float *ap,
2857 float *w,
2858 float *z,
2859 const ptrdiff_t *ldz,
2860 float *work,
2861 const ptrdiff_t *lwork,
2862 float *rwork,
2863 const ptrdiff_t *lrwork,
2864 ptrdiff_t *iwork,
2865 const ptrdiff_t *liwork,
2866 ptrdiff_t *info
2867);
2868
2869/* Source: chpevx.f */
2870#define chpevx FORTRAN_WRAPPER(chpevx)
2871extern void chpevx(
2872 const char *jobz,
2873 const char *range,
2874 const char *uplo,
2875 const ptrdiff_t *n,
2876 float *ap,
2877 const float *vl,
2878 const float *vu,
2879 const ptrdiff_t *il,
2880 const ptrdiff_t *iu,
2881 const float *abstol,
2882 ptrdiff_t *m,
2883 float *w,
2884 float *z,
2885 const ptrdiff_t *ldz,
2886 float *work,
2887 float *rwork,
2888 ptrdiff_t *iwork,
2889 ptrdiff_t *ifail,
2890 ptrdiff_t *info
2891);
2892
2893/* Source: chpgst.f */
2894#define chpgst FORTRAN_WRAPPER(chpgst)
2895extern void chpgst(
2896 const ptrdiff_t *itype,
2897 const char *uplo,
2898 const ptrdiff_t *n,
2899 float *ap,
2900 const float *bp,
2901 ptrdiff_t *info
2902);
2903
2904/* Source: chpgv.f */
2905#define chpgv FORTRAN_WRAPPER(chpgv)
2906extern void chpgv(
2907 const ptrdiff_t *itype,
2908 const char *jobz,
2909 const char *uplo,
2910 const ptrdiff_t *n,
2911 float *ap,
2912 float *bp,
2913 float *w,
2914 float *z,
2915 const ptrdiff_t *ldz,
2916 float *work,
2917 float *rwork,
2918 ptrdiff_t *info
2919);
2920
2921/* Source: chpgvd.f */
2922#define chpgvd FORTRAN_WRAPPER(chpgvd)
2923extern void chpgvd(
2924 const ptrdiff_t *itype,
2925 const char *jobz,
2926 const char *uplo,
2927 const ptrdiff_t *n,
2928 float *ap,
2929 float *bp,
2930 float *w,
2931 float *z,
2932 const ptrdiff_t *ldz,
2933 float *work,
2934 const ptrdiff_t *lwork,
2935 float *rwork,
2936 const ptrdiff_t *lrwork,
2937 ptrdiff_t *iwork,
2938 const ptrdiff_t *liwork,
2939 ptrdiff_t *info
2940);
2941
2942/* Source: chpgvx.f */
2943#define chpgvx FORTRAN_WRAPPER(chpgvx)
2944extern void chpgvx(
2945 const ptrdiff_t *itype,
2946 const char *jobz,
2947 const char *range,
2948 const char *uplo,
2949 const ptrdiff_t *n,
2950 float *ap,
2951 float *bp,
2952 const float *vl,
2953 const float *vu,
2954 const ptrdiff_t *il,
2955 const ptrdiff_t *iu,
2956 const float *abstol,
2957 ptrdiff_t *m,
2958 float *w,
2959 float *z,
2960 const ptrdiff_t *ldz,
2961 float *work,
2962 float *rwork,
2963 ptrdiff_t *iwork,
2964 ptrdiff_t *ifail,
2965 ptrdiff_t *info
2966);
2967
2968/* Source: chprfs.f */
2969#define chprfs FORTRAN_WRAPPER(chprfs)
2970extern void chprfs(
2971 const char *uplo,
2972 const ptrdiff_t *n,
2973 const ptrdiff_t *nrhs,
2974 const float *ap,
2975 const float *afp,
2976 const ptrdiff_t *ipiv,
2977 const float *b,
2978 const ptrdiff_t *ldb,
2979 float *x,
2980 const ptrdiff_t *ldx,
2981 float *ferr,
2982 float *berr,
2983 float *work,
2984 float *rwork,
2985 ptrdiff_t *info
2986);
2987
2988/* Source: chpsv.f */
2989#define chpsv FORTRAN_WRAPPER(chpsv)
2990extern void chpsv(
2991 const char *uplo,
2992 const ptrdiff_t *n,
2993 const ptrdiff_t *nrhs,
2994 float *ap,
2995 ptrdiff_t *ipiv,
2996 float *b,
2997 const ptrdiff_t *ldb,
2998 ptrdiff_t *info
2999);
3000
3001/* Source: chpsvx.f */
3002#define chpsvx FORTRAN_WRAPPER(chpsvx)
3003extern void chpsvx(
3004 const char *fact,
3005 const char *uplo,
3006 const ptrdiff_t *n,
3007 const ptrdiff_t *nrhs,
3008 const float *ap,
3009 float *afp,
3010 ptrdiff_t *ipiv,
3011 const float *b,
3012 const ptrdiff_t *ldb,
3013 float *x,
3014 const ptrdiff_t *ldx,
3015 float *rcond,
3016 float *ferr,
3017 float *berr,
3018 float *work,
3019 float *rwork,
3020 ptrdiff_t *info
3021);
3022
3023/* Source: chptrd.f */
3024#define chptrd FORTRAN_WRAPPER(chptrd)
3025extern void chptrd(
3026 const char *uplo,
3027 const ptrdiff_t *n,
3028 float *ap,
3029 float *d,
3030 float *e,
3031 float *tau,
3032 ptrdiff_t *info
3033);
3034
3035/* Source: chptrf.f */
3036#define chptrf FORTRAN_WRAPPER(chptrf)
3037extern void chptrf(
3038 const char *uplo,
3039 const ptrdiff_t *n,
3040 float *ap,
3041 ptrdiff_t *ipiv,
3042 ptrdiff_t *info
3043);
3044
3045/* Source: chptri.f */
3046#define chptri FORTRAN_WRAPPER(chptri)
3047extern void chptri(
3048 const char *uplo,
3049 const ptrdiff_t *n,
3050 float *ap,
3051 const ptrdiff_t *ipiv,
3052 float *work,
3053 ptrdiff_t *info
3054);
3055
3056/* Source: chptrs.f */
3057#define chptrs FORTRAN_WRAPPER(chptrs)
3058extern void chptrs(
3059 const char *uplo,
3060 const ptrdiff_t *n,
3061 const ptrdiff_t *nrhs,
3062 const float *ap,
3063 const ptrdiff_t *ipiv,
3064 float *b,
3065 const ptrdiff_t *ldb,
3066 ptrdiff_t *info
3067);
3068
3069/* Source: chsein.f */
3070#define chsein FORTRAN_WRAPPER(chsein)
3071extern void chsein(
3072 const char *side,
3073 const char *eigsrc,
3074 const char *initv,
3075 const ptrdiff_t *select,
3076 const ptrdiff_t *n,
3077 const float *h,
3078 const ptrdiff_t *ldh,
3079 float *w,
3080 float *vl,
3081 const ptrdiff_t *ldvl,
3082 float *vr,
3083 const ptrdiff_t *ldvr,
3084 const ptrdiff_t *mm,
3085 ptrdiff_t *m,
3086 float *work,
3087 float *rwork,
3088 ptrdiff_t *ifaill,
3089 ptrdiff_t *ifailr,
3090 ptrdiff_t *info
3091);
3092
3093/* Source: chseqr.f */
3094#define chseqr FORTRAN_WRAPPER(chseqr)
3095extern void chseqr(
3096 const char *job,
3097 const char *compz,
3098 const ptrdiff_t *n,
3099 const ptrdiff_t *ilo,
3100 const ptrdiff_t *ihi,
3101 float *h,
3102 const ptrdiff_t *ldh,
3103 float *w,
3104 float *z,
3105 const ptrdiff_t *ldz,
3106 float *work,
3107 const ptrdiff_t *lwork,
3108 ptrdiff_t *info
3109);
3110
3111/* Source: clabrd.f */
3112#define clabrd FORTRAN_WRAPPER(clabrd)
3113extern void clabrd(
3114 const ptrdiff_t *m,
3115 const ptrdiff_t *n,
3116 const ptrdiff_t *nb,
3117 float *a,
3118 const ptrdiff_t *lda,
3119 float *d,
3120 float *e,
3121 float *tauq,
3122 float *taup,
3123 float *x,
3124 const ptrdiff_t *ldx,
3125 float *y,
3126 const ptrdiff_t *ldy
3127);
3128
3129/* Source: clacgv.f */
3130#define clacgv FORTRAN_WRAPPER(clacgv)
3131extern void clacgv(
3132 const ptrdiff_t *n,
3133 float *x,
3134 const ptrdiff_t *incx
3135);
3136
3137/* Source: clacn2.f */
3138#define clacn2 FORTRAN_WRAPPER(clacn2)
3139extern void clacn2(
3140 const ptrdiff_t *n,
3141 float *v,
3142 float *x,
3143 float *est,
3144 ptrdiff_t *kase,
3145 ptrdiff_t *isave
3146);
3147
3148/* Source: clacon.f */
3149#define clacon FORTRAN_WRAPPER(clacon)
3150extern void clacon(
3151 const ptrdiff_t *n,
3152 float *v,
3153 float *x,
3154 float *est,
3155 ptrdiff_t *kase
3156);
3157
3158/* Source: clacp2.f */
3159#define clacp2 FORTRAN_WRAPPER(clacp2)
3160extern void clacp2(
3161 const char *uplo,
3162 const ptrdiff_t *m,
3163 const ptrdiff_t *n,
3164 const float *a,
3165 const ptrdiff_t *lda,
3166 float *b,
3167 const ptrdiff_t *ldb
3168);
3169
3170/* Source: clacpy.f */
3171#define clacpy FORTRAN_WRAPPER(clacpy)
3172extern void clacpy(
3173 const char *uplo,
3174 const ptrdiff_t *m,
3175 const ptrdiff_t *n,
3176 const float *a,
3177 const ptrdiff_t *lda,
3178 float *b,
3179 const ptrdiff_t *ldb
3180);
3181
3182/* Source: clacrm.f */
3183#define clacrm FORTRAN_WRAPPER(clacrm)
3184extern void clacrm(
3185 const ptrdiff_t *m,
3186 const ptrdiff_t *n,
3187 const float *a,
3188 const ptrdiff_t *lda,
3189 const float *b,
3190 const ptrdiff_t *ldb,
3191 float *c,
3192 const ptrdiff_t *ldc,
3193 float *rwork
3194);
3195
3196/* Source: clacrt.f */
3197#define clacrt FORTRAN_WRAPPER(clacrt)
3198extern void clacrt(
3199 const ptrdiff_t *n,
3200 float *cx,
3201 const ptrdiff_t *incx,
3202 float *cy,
3203 const ptrdiff_t *incy,
3204 const float *c,
3205 const float *s
3206);
3207
3208/* Source: cladiv.f */
3209#define cladiv FORTRAN_WRAPPER(cladiv)
3210#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
3211extern complex cladiv(
3212#else
3213extern void cladiv(
3214 complex* retval,
3215#endif
3216 const float *x,
3217 const float *y
3218);
3219
3220/* Source: claed0.f */
3221#define claed0 FORTRAN_WRAPPER(claed0)
3222extern void claed0(
3223 const ptrdiff_t *qsiz,
3224 const ptrdiff_t *n,
3225 float *d,
3226 float *e,
3227 float *q,
3228 const ptrdiff_t *ldq,
3229 float *qstore,
3230 const ptrdiff_t *ldqs,
3231 float *rwork,
3232 ptrdiff_t *iwork,
3233 ptrdiff_t *info
3234);
3235
3236/* Source: claed7.f */
3237#define claed7 FORTRAN_WRAPPER(claed7)
3238extern void claed7(
3239 const ptrdiff_t *n,
3240 const ptrdiff_t *cutpnt,
3241 const ptrdiff_t *qsiz,
3242 const ptrdiff_t *tlvls,
3243 const ptrdiff_t *curlvl,
3244 const ptrdiff_t *curpbm,
3245 float *d,
3246 float *q,
3247 const ptrdiff_t *ldq,
3248 const float *rho,
3249 ptrdiff_t *indxq,
3250 float *qstore,
3251 ptrdiff_t *qptr,
3252 const ptrdiff_t *prmptr,
3253 const ptrdiff_t *perm,
3254 const ptrdiff_t *givptr,
3255 const ptrdiff_t *givcol,
3256 const float *givnum,
3257 float *work,
3258 float *rwork,
3259 ptrdiff_t *iwork,
3260 ptrdiff_t *info
3261);
3262
3263/* Source: claed8.f */
3264#define claed8 FORTRAN_WRAPPER(claed8)
3265extern void claed8(
3266 ptrdiff_t *k,
3267 const ptrdiff_t *n,
3268 const ptrdiff_t *qsiz,
3269 float *q,
3270 const ptrdiff_t *ldq,
3271 float *d,
3272 float *rho,
3273 const ptrdiff_t *cutpnt,
3274 const float *z,
3275 float *dlamda,
3276 float *q2,
3277 const ptrdiff_t *ldq2,
3278 float *w,
3279 ptrdiff_t *indxp,
3280 ptrdiff_t *indx,
3281 const ptrdiff_t *indxq,
3282 ptrdiff_t *perm,
3283 ptrdiff_t *givptr,
3284 ptrdiff_t *givcol,
3285 float *givnum,
3286 ptrdiff_t *info
3287);
3288
3289/* Source: claein.f */
3290#define claein FORTRAN_WRAPPER(claein)
3291extern void claein(
3292 const ptrdiff_t *rightv,
3293 const ptrdiff_t *noinit,
3294 const ptrdiff_t *n,
3295 const float *h,
3296 const ptrdiff_t *ldh,
3297 const float *w,
3298 float *v,
3299 float *b,
3300 const ptrdiff_t *ldb,
3301 float *rwork,
3302 const float *eps3,
3303 const float *smlnum,
3304 ptrdiff_t *info
3305);
3306
3307/* Source: claesy.f */
3308#define claesy FORTRAN_WRAPPER(claesy)
3309extern void claesy(
3310 const float *a,
3311 const float *b,
3312 const float *c,
3313 float *rt1,
3314 float *rt2,
3315 float *evscal,
3316 float *cs1,
3317 float *sn1
3318);
3319
3320/* Source: claev2.f */
3321#define claev2 FORTRAN_WRAPPER(claev2)
3322extern void claev2(
3323 const float *a,
3324 const float *b,
3325 const float *c,
3326 float *rt1,
3327 float *rt2,
3328 float *cs1,
3329 float *sn1
3330);
3331
3332/* Source: clag2z.f */
3333#define clag2z FORTRAN_WRAPPER(clag2z)
3334extern void clag2z(
3335 const ptrdiff_t *m,
3336 const ptrdiff_t *n,
3337 const float *sa,
3338 const ptrdiff_t *ldsa,
3339 double *a,
3340 const ptrdiff_t *lda,
3341 ptrdiff_t *info
3342);
3343
3344/* Source: clags2.f */
3345#define clags2 FORTRAN_WRAPPER(clags2)
3346extern void clags2(
3347 const ptrdiff_t *upper,
3348 const float *a1,
3349 const float *a2,
3350 const float *a3,
3351 const float *b1,
3352 const float *b2,
3353 const float *b3,
3354 float *csu,
3355 float *snu,
3356 float *csv,
3357 float *snv,
3358 float *csq,
3359 float *snq
3360);
3361
3362/* Source: clagtm.f */
3363#define clagtm FORTRAN_WRAPPER(clagtm)
3364extern void clagtm(
3365 const char *trans,
3366 const ptrdiff_t *n,
3367 const ptrdiff_t *nrhs,
3368 const float *alpha,
3369 const float *dl,
3370 const float *d,
3371 const float *du,
3372 const float *x,
3373 const ptrdiff_t *ldx,
3374 const float *beta,
3375 float *b,
3376 const ptrdiff_t *ldb
3377);
3378
3379/* Source: clahef.f */
3380#define clahef FORTRAN_WRAPPER(clahef)
3381extern void clahef(
3382 const char *uplo,
3383 const ptrdiff_t *n,
3384 const ptrdiff_t *nb,
3385 ptrdiff_t *kb,
3386 float *a,
3387 const ptrdiff_t *lda,
3388 ptrdiff_t *ipiv,
3389 float *w,
3390 const ptrdiff_t *ldw,
3391 ptrdiff_t *info
3392);
3393
3394/* Source: clahef_aa.f */
3395#define clahef_aa FORTRAN_WRAPPER(clahef_aa)
3396extern void clahef_aa(
3397 const char *uplo,
3398 const ptrdiff_t *j1_,
3399 const ptrdiff_t *m,
3400 const ptrdiff_t *nb,
3401 float *a,
3402 const ptrdiff_t *lda,
3403 ptrdiff_t *ipiv,
3404 float *h,
3405 const ptrdiff_t *ldh,
3406 float *work,
3407 ptrdiff_t *info
3408);
3409
3410/* Source: clahef_rk.f */
3411#define clahef_rk FORTRAN_WRAPPER(clahef_rk)
3412extern void clahef_rk(
3413 char *uplo,
3414 ptrdiff_t *n,
3415 ptrdiff_t *nb,
3416 ptrdiff_t *kb,
3417 float *a,
3418 ptrdiff_t *lda,
3419 float *e,
3420 ptrdiff_t *ipiv,
3421 float *w,
3422 ptrdiff_t *ldw,
3423 ptrdiff_t *info
3424);
3425
3426/* Source: clahef_rook.f */
3427#define clahef_rook FORTRAN_WRAPPER(clahef_rook)
3428extern void clahef_rook(
3429 const char *uplo,
3430 const ptrdiff_t *n,
3431 const ptrdiff_t *nb,
3432 ptrdiff_t *kb,
3433 float *a,
3434 const ptrdiff_t *lda,
3435 ptrdiff_t *ipiv,
3436 float *w,
3437 const ptrdiff_t *ldw,
3438 ptrdiff_t *info
3439);
3440
3441/* Source: clahqr.f */
3442#define clahqr FORTRAN_WRAPPER(clahqr)
3443extern void clahqr(
3444 const ptrdiff_t *wantt,
3445 const ptrdiff_t *wantz,
3446 const ptrdiff_t *n,
3447 const ptrdiff_t *ilo,
3448 const ptrdiff_t *ihi,
3449 float *h,
3450 const ptrdiff_t *ldh,
3451 float *w,
3452 const ptrdiff_t *iloz,
3453 const ptrdiff_t *ihiz,
3454 float *z,
3455 const ptrdiff_t *ldz,
3456 ptrdiff_t *info
3457);
3458
3459/* Source: clahr2.f */
3460#define clahr2 FORTRAN_WRAPPER(clahr2)
3461extern void clahr2(
3462 const ptrdiff_t *n,
3463 const ptrdiff_t *k,
3464 const ptrdiff_t *nb,
3465 float *a,
3466 const ptrdiff_t *lda,
3467 float *tau,
3468 float *t,
3469 const ptrdiff_t *ldt,
3470 float *y,
3471 const ptrdiff_t *ldy
3472);
3473
3474/* Source: claic1.f */
3475#define claic1 FORTRAN_WRAPPER(claic1)
3476extern void claic1(
3477 const ptrdiff_t *job,
3478 const ptrdiff_t *j,
3479 const float *x,
3480 const float *sest,
3481 const float *w,
3482 const float *gamma_,
3483 float *sestpr,
3484 float *s,
3485 float *c
3486);
3487
3488/* Source: clals0.f */
3489#define clals0 FORTRAN_WRAPPER(clals0)
3490extern void clals0(
3491 const ptrdiff_t *icompq,
3492 const ptrdiff_t *nl,
3493 const ptrdiff_t *nr,
3494 const ptrdiff_t *sqre,
3495 const ptrdiff_t *nrhs,
3496 float *b,
3497 const ptrdiff_t *ldb,
3498 float *bx,
3499 const ptrdiff_t *ldbx,
3500 const ptrdiff_t *perm,
3501 const ptrdiff_t *givptr,
3502 const ptrdiff_t *givcol,
3503 const ptrdiff_t *ldgcol,
3504 const float *givnum,
3505 const ptrdiff_t *ldgnum,
3506 const float *poles,
3507 const float *difl,
3508 const float *difr,
3509 const float *z,
3510 const ptrdiff_t *k,
3511 const float *c,
3512 const float *s,
3513 float *rwork,
3514 ptrdiff_t *info
3515);
3516
3517/* Source: clalsa.f */
3518#define clalsa FORTRAN_WRAPPER(clalsa)
3519extern void clalsa(
3520 const ptrdiff_t *icompq,
3521 const ptrdiff_t *smlsiz,
3522 const ptrdiff_t *n,
3523 const ptrdiff_t *nrhs,
3524 float *b,
3525 const ptrdiff_t *ldb,
3526 float *bx,
3527 const ptrdiff_t *ldbx,
3528 const float *u,
3529 const ptrdiff_t *ldu,
3530 const float *vt,
3531 const ptrdiff_t *k,
3532 const float *difl,
3533 const float *difr,
3534 const float *z,
3535 const float *poles,
3536 const ptrdiff_t *givptr,
3537 const ptrdiff_t *givcol,
3538 const ptrdiff_t *ldgcol,
3539 const ptrdiff_t *perm,
3540 const float *givnum,
3541 const float *c,
3542 const float *s,
3543 float *rwork,
3544 ptrdiff_t *iwork,
3545 ptrdiff_t *info
3546);
3547
3548/* Source: clalsd.f */
3549#define clalsd FORTRAN_WRAPPER(clalsd)
3550extern void clalsd(
3551 const char *uplo,
3552 const ptrdiff_t *smlsiz,
3553 const ptrdiff_t *n,
3554 const ptrdiff_t *nrhs,
3555 float *d,
3556 float *e,
3557 float *b,
3558 const ptrdiff_t *ldb,
3559 const float *rcond,
3560 ptrdiff_t *rank,
3561 float *work,
3562 float *rwork,
3563 ptrdiff_t *iwork,
3564 ptrdiff_t *info
3565);
3566
3567/* Source: clamswlq.f */
3568#define clamswlq FORTRAN_WRAPPER(clamswlq)
3569extern void clamswlq(
3570 const char *side,
3571 const char *trans,
3572 const ptrdiff_t *m,
3573 const ptrdiff_t *n,
3574 const ptrdiff_t *k,
3575 const ptrdiff_t *mb,
3576 const ptrdiff_t *nb,
3577 float *a,
3578 const ptrdiff_t *lda,
3579 const float *t,
3580 const ptrdiff_t *ldt,
3581 float *c,
3582 const ptrdiff_t *ldc,
3583 float *work,
3584 const ptrdiff_t *lwork,
3585 ptrdiff_t *info
3586);
3587
3588/* Source: clamtsqr.f */
3589#define clamtsqr FORTRAN_WRAPPER(clamtsqr)
3590extern void clamtsqr(
3591 const char *side,
3592 const char *trans,
3593 const ptrdiff_t *m,
3594 const ptrdiff_t *n,
3595 const ptrdiff_t *k,
3596 const ptrdiff_t *mb,
3597 const ptrdiff_t *nb,
3598 float *a,
3599 const ptrdiff_t *lda,
3600 const float *t,
3601 const ptrdiff_t *ldt,
3602 float *c,
3603 const ptrdiff_t *ldc,
3604 float *work,
3605 const ptrdiff_t *lwork,
3606 ptrdiff_t *info
3607);
3608
3609/* Source: clangb.f */
3610#define clangb FORTRAN_WRAPPER(clangb)
3611#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3612extern double clangb(
3613#else
3614extern float clangb(
3615#endif
3616 const char *norm,
3617 const ptrdiff_t *n,
3618 const ptrdiff_t *kl,
3619 const ptrdiff_t *ku,
3620 const float *ab,
3621 const ptrdiff_t *ldab,
3622 float *work
3623);
3624
3625/* Source: clange.f */
3626#define clange FORTRAN_WRAPPER(clange)
3627#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3628extern double clange(
3629#else
3630extern float clange(
3631#endif
3632 const char *norm,
3633 const ptrdiff_t *m,
3634 const ptrdiff_t *n,
3635 const float *a,
3636 const ptrdiff_t *lda,
3637 float *work
3638);
3639
3640/* Source: clangt.f */
3641#define clangt FORTRAN_WRAPPER(clangt)
3642#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3643extern double clangt(
3644#else
3645extern float clangt(
3646#endif
3647 const char *norm,
3648 const ptrdiff_t *n,
3649 const float *dl,
3650 const float *d,
3651 const float *du
3652);
3653
3654/* Source: clanhb.f */
3655#define clanhb FORTRAN_WRAPPER(clanhb)
3656#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3657extern double clanhb(
3658#else
3659extern float clanhb(
3660#endif
3661 const char *norm,
3662 const char *uplo,
3663 const ptrdiff_t *n,
3664 const ptrdiff_t *k,
3665 const float *ab,
3666 const ptrdiff_t *ldab,
3667 float *work
3668);
3669
3670/* Source: clanhe.f */
3671#define clanhe FORTRAN_WRAPPER(clanhe)
3672#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3673extern double clanhe(
3674#else
3675extern float clanhe(
3676#endif
3677 const char *norm,
3678 const char *uplo,
3679 const ptrdiff_t *n,
3680 const float *a,
3681 const ptrdiff_t *lda,
3682 float *work
3683);
3684
3685/* Source: clanhf.f */
3686#define clanhf FORTRAN_WRAPPER(clanhf)
3687#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3688extern double clanhf(
3689#else
3690extern float clanhf(
3691#endif
3692 const char *norm,
3693 const char *transr,
3694 const char *uplo,
3695 const ptrdiff_t *n,
3696 const float *a,
3697 float *work
3698);
3699
3700/* Source: clanhp.f */
3701#define clanhp FORTRAN_WRAPPER(clanhp)
3702#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3703extern double clanhp(
3704#else
3705extern float clanhp(
3706#endif
3707 const char *norm,
3708 const char *uplo,
3709 const ptrdiff_t *n,
3710 const float *ap,
3711 float *work
3712);
3713
3714/* Source: clanhs.f */
3715#define clanhs FORTRAN_WRAPPER(clanhs)
3716#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3717extern double clanhs(
3718#else
3719extern float clanhs(
3720#endif
3721 const char *norm,
3722 const ptrdiff_t *n,
3723 const float *a,
3724 const ptrdiff_t *lda,
3725 float *work
3726);
3727
3728/* Source: clanht.f */
3729#define clanht FORTRAN_WRAPPER(clanht)
3730#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3731extern double clanht(
3732#else
3733extern float clanht(
3734#endif
3735 const char *norm,
3736 const ptrdiff_t *n,
3737 const float *d,
3738 const float *e
3739);
3740
3741/* Source: clansb.f */
3742#define clansb FORTRAN_WRAPPER(clansb)
3743#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3744extern double clansb(
3745#else
3746extern float clansb(
3747#endif
3748 const char *norm,
3749 const char *uplo,
3750 const ptrdiff_t *n,
3751 const ptrdiff_t *k,
3752 const float *ab,
3753 const ptrdiff_t *ldab,
3754 float *work
3755);
3756
3757/* Source: clansp.f */
3758#define clansp FORTRAN_WRAPPER(clansp)
3759#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3760extern double clansp(
3761#else
3762extern float clansp(
3763#endif
3764 const char *norm,
3765 const char *uplo,
3766 const ptrdiff_t *n,
3767 const float *ap,
3768 float *work
3769);
3770
3771/* Source: clansy.f */
3772#define clansy FORTRAN_WRAPPER(clansy)
3773#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3774extern double clansy(
3775#else
3776extern float clansy(
3777#endif
3778 const char *norm,
3779 const char *uplo,
3780 const ptrdiff_t *n,
3781 const float *a,
3782 const ptrdiff_t *lda,
3783 float *work
3784);
3785
3786/* Source: clantb.f */
3787#define clantb FORTRAN_WRAPPER(clantb)
3788#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3789extern double clantb(
3790#else
3791extern float clantb(
3792#endif
3793 const char *norm,
3794 const char *uplo,
3795 const char *diag,
3796 const ptrdiff_t *n,
3797 const ptrdiff_t *k,
3798 const float *ab,
3799 const ptrdiff_t *ldab,
3800 float *work
3801);
3802
3803/* Source: clantp.f */
3804#define clantp FORTRAN_WRAPPER(clantp)
3805#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3806extern double clantp(
3807#else
3808extern float clantp(
3809#endif
3810 const char *norm,
3811 const char *uplo,
3812 const char *diag,
3813 const ptrdiff_t *n,
3814 const float *ap,
3815 float *work
3816);
3817
3818/* Source: clantr.f */
3819#define clantr FORTRAN_WRAPPER(clantr)
3820#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3821extern double clantr(
3822#else
3823extern float clantr(
3824#endif
3825 const char *norm,
3826 const char *uplo,
3827 const char *diag,
3828 const ptrdiff_t *m,
3829 const ptrdiff_t *n,
3830 const float *a,
3831 const ptrdiff_t *lda,
3832 float *work
3833);
3834
3835/* Source: clapll.f */
3836#define clapll FORTRAN_WRAPPER(clapll)
3837extern void clapll(
3838 const ptrdiff_t *n,
3839 float *x,
3840 const ptrdiff_t *incx,
3841 float *y,
3842 const ptrdiff_t *incy,
3843 float *ssmin
3844);
3845
3846/* Source: clapmr.f */
3847#define clapmr FORTRAN_WRAPPER(clapmr)
3848extern void clapmr(
3849 const ptrdiff_t *forwrd,
3850 const ptrdiff_t *m,
3851 const ptrdiff_t *n,
3852 float *x,
3853 const ptrdiff_t *ldx,
3854 ptrdiff_t *k
3855);
3856
3857/* Source: clapmt.f */
3858#define clapmt FORTRAN_WRAPPER(clapmt)
3859extern void clapmt(
3860 const ptrdiff_t *forwrd,
3861 const ptrdiff_t *m,
3862 const ptrdiff_t *n,
3863 float *x,
3864 const ptrdiff_t *ldx,
3865 ptrdiff_t *k
3866);
3867
3868/* Source: claqgb.f */
3869#define claqgb FORTRAN_WRAPPER(claqgb)
3870extern void claqgb(
3871 const ptrdiff_t *m,
3872 const ptrdiff_t *n,
3873 const ptrdiff_t *kl,
3874 const ptrdiff_t *ku,
3875 float *ab,
3876 const ptrdiff_t *ldab,
3877 const float *r,
3878 const float *c,
3879 const float *rowcnd,
3880 const float *colcnd,
3881 const float *amax,
3882 char *equed
3883);
3884
3885/* Source: claqge.f */
3886#define claqge FORTRAN_WRAPPER(claqge)
3887extern void claqge(
3888 const ptrdiff_t *m,
3889 const ptrdiff_t *n,
3890 float *a,
3891 const ptrdiff_t *lda,
3892 const float *r,
3893 const float *c,
3894 const float *rowcnd,
3895 const float *colcnd,
3896 const float *amax,
3897 char *equed
3898);
3899
3900/* Source: claqhb.f */
3901#define claqhb FORTRAN_WRAPPER(claqhb)
3902extern void claqhb(
3903 const char *uplo,
3904 const ptrdiff_t *n,
3905 const ptrdiff_t *kd,
3906 float *ab,
3907 const ptrdiff_t *ldab,
3908 float *s,
3909 const float *scond,
3910 const float *amax,
3911 char *equed
3912);
3913
3914/* Source: claqhe.f */
3915#define claqhe FORTRAN_WRAPPER(claqhe)
3916extern void claqhe(
3917 const char *uplo,
3918 const ptrdiff_t *n,
3919 float *a,
3920 const ptrdiff_t *lda,
3921 const float *s,
3922 const float *scond,
3923 const float *amax,
3924 char *equed
3925);
3926
3927/* Source: claqhp.f */
3928#define claqhp FORTRAN_WRAPPER(claqhp)
3929extern void claqhp(
3930 const char *uplo,
3931 const ptrdiff_t *n,
3932 float *ap,
3933 const float *s,
3934 const float *scond,
3935 const float *amax,
3936 char *equed
3937);
3938
3939/* Source: claqp2.f */
3940#define claqp2 FORTRAN_WRAPPER(claqp2)
3941extern void claqp2(
3942 const ptrdiff_t *m,
3943 const ptrdiff_t *n,
3944 const ptrdiff_t *offset,
3945 float *a,
3946 const ptrdiff_t *lda,
3947 ptrdiff_t *jpvt,
3948 float *tau,
3949 float *vn1,
3950 float *vn2,
3951 float *work
3952);
3953
3954/* Source: claqps.f */
3955#define claqps FORTRAN_WRAPPER(claqps)
3956extern void claqps(
3957 const ptrdiff_t *m,
3958 const ptrdiff_t *n,
3959 const ptrdiff_t *offset,
3960 const ptrdiff_t *nb,
3961 ptrdiff_t *kb,
3962 float *a,
3963 const ptrdiff_t *lda,
3964 ptrdiff_t *jpvt,
3965 float *tau,
3966 float *vn1,
3967 float *vn2,
3968 float *auxv,
3969 float *f,
3970 const ptrdiff_t *ldf
3971);
3972
3973/* Source: claqr0.f */
3974#define claqr0 FORTRAN_WRAPPER(claqr0)
3975extern void claqr0(
3976 const ptrdiff_t *wantt,
3977 const ptrdiff_t *wantz,
3978 const ptrdiff_t *n,
3979 const ptrdiff_t *ilo,
3980 const ptrdiff_t *ihi,
3981 float *h,
3982 const ptrdiff_t *ldh,
3983 float *w,
3984 ptrdiff_t *iloz,
3985 ptrdiff_t *ihiz,
3986 float *z,
3987 const ptrdiff_t *ldz,
3988 float *work,
3989 const ptrdiff_t *lwork,
3990 ptrdiff_t *info
3991);
3992
3993/* Source: claqr1.f */
3994#define claqr1 FORTRAN_WRAPPER(claqr1)
3995extern void claqr1(
3996 const ptrdiff_t *n,
3997 const float *h,
3998 const ptrdiff_t *ldh,
3999 const float *s1,
4000 float *s2,
4001 float *v
4002);
4003
4004/* Source: claqr2.f */
4005#define claqr2 FORTRAN_WRAPPER(claqr2)
4006extern void claqr2(
4007 const ptrdiff_t *wantt,
4008 const ptrdiff_t *wantz,
4009 const ptrdiff_t *n,
4010 const ptrdiff_t *ktop,
4011 const ptrdiff_t *kbot,
4012 const ptrdiff_t *nw,
4013 float *h,
4014 const ptrdiff_t *ldh,
4015 const ptrdiff_t *iloz,
4016 const ptrdiff_t *ihiz,
4017 float *z,
4018 const ptrdiff_t *ldz,
4019 ptrdiff_t *ns,
4020 ptrdiff_t *nd,
4021 float *sh,
4022 float *v,
4023 const ptrdiff_t *ldv,
4024 const ptrdiff_t *nh,
4025 float *t,
4026 const ptrdiff_t *ldt,
4027 const ptrdiff_t *nv,
4028 float *wv,
4029 const ptrdiff_t *ldwv,
4030 float *work,
4031 const ptrdiff_t *lwork
4032);
4033
4034/* Source: claqr3.f */
4035#define claqr3 FORTRAN_WRAPPER(claqr3)
4036extern void claqr3(
4037 const ptrdiff_t *wantt,
4038 const ptrdiff_t *wantz,
4039 const ptrdiff_t *n,
4040 const ptrdiff_t *ktop,
4041 const ptrdiff_t *kbot,
4042 const ptrdiff_t *nw,
4043 float *h,
4044 const ptrdiff_t *ldh,
4045 const ptrdiff_t *iloz,
4046 const ptrdiff_t *ihiz,
4047 float *z,
4048 const ptrdiff_t *ldz,
4049 ptrdiff_t *ns,
4050 ptrdiff_t *nd,
4051 float *sh,
4052 float *v,
4053 const ptrdiff_t *ldv,
4054 const ptrdiff_t *nh,
4055 float *t,
4056 const ptrdiff_t *ldt,
4057 const ptrdiff_t *nv,
4058 float *wv,
4059 const ptrdiff_t *ldwv,
4060 float *work,
4061 const ptrdiff_t *lwork
4062);
4063
4064/* Source: claqr4.f */
4065#define claqr4 FORTRAN_WRAPPER(claqr4)
4066extern void claqr4(
4067 const ptrdiff_t *wantt,
4068 const ptrdiff_t *wantz,
4069 const ptrdiff_t *n,
4070 const ptrdiff_t *ilo,
4071 const ptrdiff_t *ihi,
4072 float *h,
4073 const ptrdiff_t *ldh,
4074 float *w,
4075 ptrdiff_t *iloz,
4076 ptrdiff_t *ihiz,
4077 float *z,
4078 const ptrdiff_t *ldz,
4079 float *work,
4080 const ptrdiff_t *lwork,
4081 ptrdiff_t *info
4082);
4083
4084/* Source: claqr5.f */
4085#define claqr5 FORTRAN_WRAPPER(claqr5)
4086extern void claqr5(
4087 const ptrdiff_t *wantt,
4088 const ptrdiff_t *wantz,
4089 const ptrdiff_t *kacc22,
4090 const ptrdiff_t *n,
4091 const ptrdiff_t *ktop,
4092 const ptrdiff_t *kbot,
4093 const ptrdiff_t *nshfts,
4094 float *s,
4095 float *h,
4096 const ptrdiff_t *ldh,
4097 const ptrdiff_t *iloz,
4098 const ptrdiff_t *ihiz,
4099 float *z,
4100 const ptrdiff_t *ldz,
4101 float *v,
4102 const ptrdiff_t *ldv,
4103 float *u,
4104 const ptrdiff_t *ldu,
4105 const ptrdiff_t *nv,
4106 float *wv,
4107 const ptrdiff_t *ldwv,
4108 const ptrdiff_t *nh,
4109 float *wh,
4110 const ptrdiff_t *ldwh
4111);
4112
4113/* Source: claqsb.f */
4114#define claqsb FORTRAN_WRAPPER(claqsb)
4115extern void claqsb(
4116 const char *uplo,
4117 const ptrdiff_t *n,
4118 const ptrdiff_t *kd,
4119 float *ab,
4120 const ptrdiff_t *ldab,
4121 const float *s,
4122 const float *scond,
4123 const float *amax,
4124 char *equed
4125);
4126
4127/* Source: claqsp.f */
4128#define claqsp FORTRAN_WRAPPER(claqsp)
4129extern void claqsp(
4130 const char *uplo,
4131 const ptrdiff_t *n,
4132 float *ap,
4133 const float *s,
4134 const float *scond,
4135 const float *amax,
4136 char *equed
4137);
4138
4139/* Source: claqsy.f */
4140#define claqsy FORTRAN_WRAPPER(claqsy)
4141extern void claqsy(
4142 const char *uplo,
4143 const ptrdiff_t *n,
4144 float *a,
4145 const ptrdiff_t *lda,
4146 const float *s,
4147 const float *scond,
4148 const float *amax,
4149 char *equed
4150);
4151
4152/* Source: clar1v.f */
4153#define clar1v FORTRAN_WRAPPER(clar1v)
4154extern void clar1v(
4155 const ptrdiff_t *n,
4156 const ptrdiff_t *b1,
4157 const ptrdiff_t *bn,
4158 const float *lambda,
4159 const float *d,
4160 const float *l,
4161 const float *ld,
4162 const float *lld,
4163 const float *pivmin,
4164 const float *gaptol,
4165 float *z,
4166 const ptrdiff_t *wantnc,
4167 ptrdiff_t *negcnt,
4168 float *ztz,
4169 float *mingma,
4170 ptrdiff_t *r,
4171 ptrdiff_t *isuppz,
4172 float *nrminv,
4173 float *resid,
4174 float *rqcorr,
4175 float *work
4176);
4177
4178/* Source: clar2v.f */
4179#define clar2v FORTRAN_WRAPPER(clar2v)
4180extern void clar2v(
4181 const ptrdiff_t *n,
4182 float *x,
4183 float *y,
4184 float *z,
4185 const ptrdiff_t *incx,
4186 const float *c,
4187 const float *s,
4188 const ptrdiff_t *incc
4189);
4190
4191/* Source: clarcm.f */
4192#define clarcm FORTRAN_WRAPPER(clarcm)
4193extern void clarcm(
4194 const ptrdiff_t *m,
4195 const ptrdiff_t *n,
4196 const float *a,
4197 const ptrdiff_t *lda,
4198 const float *b,
4199 const ptrdiff_t *ldb,
4200 float *c,
4201 const ptrdiff_t *ldc,
4202 float *rwork
4203);
4204
4205/* Source: clarf.f */
4206#define clarf FORTRAN_WRAPPER(clarf)
4207extern void clarf(
4208 const char *side,
4209 const ptrdiff_t *m,
4210 const ptrdiff_t *n,
4211 const float *v,
4212 const ptrdiff_t *incv,
4213 const float *tau,
4214 float *c,
4215 const ptrdiff_t *ldc,
4216 float *work
4217);
4218
4219/* Source: clarfb.f */
4220#define clarfb FORTRAN_WRAPPER(clarfb)
4221extern void clarfb(
4222 const char *side,
4223 const char *trans,
4224 const char *direct,
4225 const char *storev,
4226 const ptrdiff_t *m,
4227 const ptrdiff_t *n,
4228 const ptrdiff_t *k,
4229 const float *v,
4230 const ptrdiff_t *ldv,
4231 const float *t,
4232 const ptrdiff_t *ldt,
4233 float *c,
4234 const ptrdiff_t *ldc,
4235 float *work,
4236 const ptrdiff_t *ldwork
4237);
4238
4239/* Source: clarfg.f */
4240#define clarfg FORTRAN_WRAPPER(clarfg)
4241extern void clarfg(
4242 const ptrdiff_t *n,
4243 float *alpha,
4244 float *x,
4245 const ptrdiff_t *incx,
4246 float *tau
4247);
4248
4249/* Source: clarfgp.f */
4250#define clarfgp FORTRAN_WRAPPER(clarfgp)
4251extern void clarfgp(
4252 const ptrdiff_t *n,
4253 float *alpha,
4254 float *x,
4255 const ptrdiff_t *incx,
4256 float *tau
4257);
4258
4259/* Source: clarft.f */
4260#define clarft FORTRAN_WRAPPER(clarft)
4261extern void clarft(
4262 const char *direct,
4263 const char *storev,
4264 const ptrdiff_t *n,
4265 const ptrdiff_t *k,
4266 const float *v,
4267 const ptrdiff_t *ldv,
4268 const float *tau,
4269 float *t,
4270 const ptrdiff_t *ldt
4271);
4272
4273/* Source: clarfx.f */
4274#define clarfx FORTRAN_WRAPPER(clarfx)
4275extern void clarfx(
4276 const char *side,
4277 const ptrdiff_t *m,
4278 const ptrdiff_t *n,
4279 const float *v,
4280 const float *tau,
4281 float *c,
4282 const ptrdiff_t *ldc,
4283 float *work
4284);
4285
4286/* Source: clarfy.f */
4287#define clarfy FORTRAN_WRAPPER(clarfy)
4288extern void clarfy(
4289 char *uplo,
4290 ptrdiff_t *n,
4291 float *v,
4292 ptrdiff_t *incv,
4293 float *tau,
4294 float *c,
4295 ptrdiff_t *ldc,
4296 float *work
4297);
4298
4299/* Source: clargv.f */
4300#define clargv FORTRAN_WRAPPER(clargv)
4301extern void clargv(
4302 const ptrdiff_t *n,
4303 float *x,
4304 const ptrdiff_t *incx,
4305 float *y,
4306 const ptrdiff_t *incy,
4307 float *c,
4308 const ptrdiff_t *incc
4309);
4310
4311/* Source: clarnv.f */
4312#define clarnv FORTRAN_WRAPPER(clarnv)
4313extern void clarnv(
4314 const ptrdiff_t *idist,
4315 ptrdiff_t *iseed,
4316 const ptrdiff_t *n,
4317 float *x
4318);
4319
4320/* Source: clarrv.f */
4321#define clarrv FORTRAN_WRAPPER(clarrv)
4322extern void clarrv(
4323 const ptrdiff_t *n,
4324 const float *vl,
4325 const float *vu,
4326 float *d,
4327 float *l,
4328 float *pivmin,
4329 const ptrdiff_t *isplit,
4330 const ptrdiff_t *m,
4331 const ptrdiff_t *dol,
4332 const ptrdiff_t *dou,
4333 const float *minrgp,
4334 const float *rtol1,
4335 const float *rtol2,
4336 float *w,
4337 float *werr,
4338 float *wgap,
4339 const ptrdiff_t *iblock,
4340 const ptrdiff_t *indexw,
4341 const float *gers,
4342 float *z,
4343 const ptrdiff_t *ldz,
4344 ptrdiff_t *isuppz,
4345 float *work,
4346 ptrdiff_t *iwork,
4347 ptrdiff_t *info
4348);
4349
4350/* Source: clartg.f */
4351#define clartg FORTRAN_WRAPPER(clartg)
4352extern void clartg(
4353 const float *f,
4354 const float *g,
4355 float *cs,
4356 float *sn,
4357 float *r
4358);
4359
4360/* Source: clartv.f */
4361#define clartv FORTRAN_WRAPPER(clartv)
4362extern void clartv(
4363 const ptrdiff_t *n,
4364 float *x,
4365 const ptrdiff_t *incx,
4366 float *y,
4367 const ptrdiff_t *incy,
4368 const float *c,
4369 const float *s,
4370 const ptrdiff_t *incc
4371);
4372
4373/* Source: clarz.f */
4374#define clarz FORTRAN_WRAPPER(clarz)
4375extern void clarz(
4376 const char *side,
4377 const ptrdiff_t *m,
4378 const ptrdiff_t *n,
4379 const ptrdiff_t *l,
4380 const float *v,
4381 const ptrdiff_t *incv,
4382 const float *tau,
4383 float *c,
4384 const ptrdiff_t *ldc,
4385 float *work
4386);
4387
4388/* Source: clarzb.f */
4389#define clarzb FORTRAN_WRAPPER(clarzb)
4390extern void clarzb(
4391 const char *side,
4392 const char *trans,
4393 const char *direct,
4394 const char *storev,
4395 const ptrdiff_t *m,
4396 const ptrdiff_t *n,
4397 const ptrdiff_t *k,
4398 const ptrdiff_t *l,
4399 const float *v,
4400 const ptrdiff_t *ldv,
4401 const float *t,
4402 const ptrdiff_t *ldt,
4403 float *c,
4404 const ptrdiff_t *ldc,
4405 float *work,
4406 const ptrdiff_t *ldwork
4407);
4408
4409/* Source: clarzt.f */
4410#define clarzt FORTRAN_WRAPPER(clarzt)
4411extern void clarzt(
4412 const char *direct,
4413 const char *storev,
4414 const ptrdiff_t *n,
4415 const ptrdiff_t *k,
4416 float *v,
4417 const ptrdiff_t *ldv,
4418 const float *tau,
4419 float *t,
4420 const ptrdiff_t *ldt
4421);
4422
4423/* Source: clascl.f */
4424#define clascl FORTRAN_WRAPPER(clascl)
4425extern void clascl(
4426 const char *type,
4427 const ptrdiff_t *kl,
4428 const ptrdiff_t *ku,
4429 const float *cfrom,
4430 const float *cto,
4431 const ptrdiff_t *m,
4432 const ptrdiff_t *n,
4433 float *a,
4434 const ptrdiff_t *lda,
4435 ptrdiff_t *info
4436);
4437
4438/* Source: claset.f */
4439#define claset FORTRAN_WRAPPER(claset)
4440extern void claset(
4441 const char *uplo,
4442 const ptrdiff_t *m,
4443 const ptrdiff_t *n,
4444 const float *alpha,
4445 const float *beta,
4446 float *a,
4447 const ptrdiff_t *lda
4448);
4449
4450/* Source: clasr.f */
4451#define clasr FORTRAN_WRAPPER(clasr)
4452extern void clasr(
4453 const char *side,
4454 const char *pivot,
4455 const char *direct,
4456 const ptrdiff_t *m,
4457 const ptrdiff_t *n,
4458 const float *c,
4459 const float *s,
4460 float *a,
4461 const ptrdiff_t *lda
4462);
4463
4464/* Source: classq.f */
4465#define classq FORTRAN_WRAPPER(classq)
4466extern void classq(
4467 const ptrdiff_t *n,
4468 const float *x,
4469 const ptrdiff_t *incx,
4470 float *scale,
4471 float *sumsq
4472);
4473
4474/* Source: claswlq.f */
4475#define claswlq FORTRAN_WRAPPER(claswlq)
4476extern void claswlq(
4477 const ptrdiff_t *m,
4478 const ptrdiff_t *n,
4479 const ptrdiff_t *mb,
4480 const ptrdiff_t *nb,
4481 float *a,
4482 const ptrdiff_t *lda,
4483 float *t,
4484 const ptrdiff_t *ldt,
4485 float *work,
4486 const ptrdiff_t *lwork,
4487 ptrdiff_t *info
4488);
4489
4490/* Source: claswp.f */
4491#define claswp FORTRAN_WRAPPER(claswp)
4492extern void claswp(
4493 const ptrdiff_t *n,
4494 float *a,
4495 const ptrdiff_t *lda,
4496 const ptrdiff_t *k1,
4497 const ptrdiff_t *k2,
4498 const ptrdiff_t *ipiv,
4499 const ptrdiff_t *incx
4500);
4501
4502/* Source: clasyf.f */
4503#define clasyf FORTRAN_WRAPPER(clasyf)
4504extern void clasyf(
4505 const char *uplo,
4506 const ptrdiff_t *n,
4507 const ptrdiff_t *nb,
4508 ptrdiff_t *kb,
4509 float *a,
4510 const ptrdiff_t *lda,
4511 ptrdiff_t *ipiv,
4512 float *w,
4513 const ptrdiff_t *ldw,
4514 ptrdiff_t *info
4515);
4516
4517/* Source: clasyf_aa.f */
4518#define clasyf_aa FORTRAN_WRAPPER(clasyf_aa)
4519extern void clasyf_aa(
4520 char *uplo,
4521 ptrdiff_t *j1_,
4522 ptrdiff_t *m,
4523 ptrdiff_t *nb,
4524 float *a,
4525 ptrdiff_t *lda,
4526 ptrdiff_t *ipiv,
4527 float *h,
4528 ptrdiff_t *ldh,
4529 float *work,
4530 ptrdiff_t *info
4531);
4532
4533/* Source: clasyf_rk.f */
4534#define clasyf_rk FORTRAN_WRAPPER(clasyf_rk)
4535extern void clasyf_rk(
4536 char *uplo,
4537 ptrdiff_t *n,
4538 ptrdiff_t *nb,
4539 ptrdiff_t *kb,
4540 float *a,
4541 ptrdiff_t *lda,
4542 float *e,
4543 ptrdiff_t *ipiv,
4544 float *w,
4545 ptrdiff_t *ldw,
4546 ptrdiff_t *info
4547);
4548
4549/* Source: clasyf_rook.f */
4550#define clasyf_rook FORTRAN_WRAPPER(clasyf_rook)
4551extern void clasyf_rook(
4552 const char *uplo,
4553 const ptrdiff_t *n,
4554 const ptrdiff_t *nb,
4555 ptrdiff_t *kb,
4556 float *a,
4557 const ptrdiff_t *lda,
4558 ptrdiff_t *ipiv,
4559 float *w,
4560 const ptrdiff_t *ldw,
4561 ptrdiff_t *info
4562);
4563
4564/* Source: clatbs.f */
4565#define clatbs FORTRAN_WRAPPER(clatbs)
4566extern void clatbs(
4567 const char *uplo,
4568 const char *trans,
4569 const char *diag,
4570 const char *normin,
4571 const ptrdiff_t *n,
4572 const ptrdiff_t *kd,
4573 const float *ab,
4574 const ptrdiff_t *ldab,
4575 float *x,
4576 float *scale,
4577 float *cnorm,
4578 ptrdiff_t *info
4579);
4580
4581/* Source: clatdf.f */
4582#define clatdf FORTRAN_WRAPPER(clatdf)
4583extern void clatdf(
4584 const ptrdiff_t *ijob,
4585 const ptrdiff_t *n,
4586 const float *z,
4587 const ptrdiff_t *ldz,
4588 float *rhs,
4589 float *rdsum,
4590 float *rdscal,
4591 const ptrdiff_t *ipiv,
4592 const ptrdiff_t *jpiv
4593);
4594
4595/* Source: clatps.f */
4596#define clatps FORTRAN_WRAPPER(clatps)
4597extern void clatps(
4598 const char *uplo,
4599 const char *trans,
4600 const char *diag,
4601 const char *normin,
4602 const ptrdiff_t *n,
4603 const float *ap,
4604 float *x,
4605 float *scale,
4606 float *cnorm,
4607 ptrdiff_t *info
4608);
4609
4610/* Source: clatrd.f */
4611#define clatrd FORTRAN_WRAPPER(clatrd)
4612extern void clatrd(
4613 const char *uplo,
4614 const ptrdiff_t *n,
4615 const ptrdiff_t *nb,
4616 float *a,
4617 const ptrdiff_t *lda,
4618 float *e,
4619 float *tau,
4620 float *w,
4621 const ptrdiff_t *ldw
4622);
4623
4624/* Source: clatrs.f */
4625#define clatrs FORTRAN_WRAPPER(clatrs)
4626extern void clatrs(
4627 const char *uplo,
4628 const char *trans,
4629 const char *diag,
4630 const char *normin,
4631 const ptrdiff_t *n,
4632 const float *a,
4633 const ptrdiff_t *lda,
4634 float *x,
4635 float *scale,
4636 float *cnorm,
4637 ptrdiff_t *info
4638);
4639
4640/* Source: clatrz.f */
4641#define clatrz FORTRAN_WRAPPER(clatrz)
4642extern void clatrz(
4643 const ptrdiff_t *m,
4644 const ptrdiff_t *n,
4645 const ptrdiff_t *l,
4646 float *a,
4647 const ptrdiff_t *lda,
4648 float *tau,
4649 float *work
4650);
4651
4652/* Source: clatsqr.f */
4653#define clatsqr FORTRAN_WRAPPER(clatsqr)
4654extern void clatsqr(
4655 const ptrdiff_t *m,
4656 const ptrdiff_t *n,
4657 const ptrdiff_t *mb,
4658 const ptrdiff_t *nb,
4659 float *a,
4660 const ptrdiff_t *lda,
4661 float *t,
4662 const ptrdiff_t *ldt,
4663 float *work,
4664 const ptrdiff_t *lwork,
4665 ptrdiff_t *info
4666);
4667
4668/* Source: clauu2.f */
4669#define clauu2 FORTRAN_WRAPPER(clauu2)
4670extern void clauu2(
4671 const char *uplo,
4672 const ptrdiff_t *n,
4673 float *a,
4674 const ptrdiff_t *lda,
4675 ptrdiff_t *info
4676);
4677
4678/* Source: clauum.f */
4679#define clauum FORTRAN_WRAPPER(clauum)
4680extern void clauum(
4681 const char *uplo,
4682 const ptrdiff_t *n,
4683 float *a,
4684 const ptrdiff_t *lda,
4685 ptrdiff_t *info
4686);
4687
4688/* Source: cpbcon.f */
4689#define cpbcon FORTRAN_WRAPPER(cpbcon)
4690extern void cpbcon(
4691 const char *uplo,
4692 const ptrdiff_t *n,
4693 const ptrdiff_t *kd,
4694 const float *ab,
4695 const ptrdiff_t *ldab,
4696 const float *anorm,
4697 float *rcond,
4698 float *work,
4699 float *rwork,
4700 ptrdiff_t *info
4701);
4702
4703/* Source: cpbequ.f */
4704#define cpbequ FORTRAN_WRAPPER(cpbequ)
4705extern void cpbequ(
4706 const char *uplo,
4707 const ptrdiff_t *n,
4708 const ptrdiff_t *kd,
4709 const float *ab,
4710 const ptrdiff_t *ldab,
4711 float *s,
4712 float *scond,
4713 float *amax,
4714 ptrdiff_t *info
4715);
4716
4717/* Source: cpbrfs.f */
4718#define cpbrfs FORTRAN_WRAPPER(cpbrfs)
4719extern void cpbrfs(
4720 const char *uplo,
4721 const ptrdiff_t *n,
4722 const ptrdiff_t *kd,
4723 const ptrdiff_t *nrhs,
4724 const float *ab,
4725 const ptrdiff_t *ldab,
4726 const float *afb,
4727 const ptrdiff_t *ldafb,
4728 const float *b,
4729 const ptrdiff_t *ldb,
4730 float *x,
4731 const ptrdiff_t *ldx,
4732 float *ferr,
4733 float *berr,
4734 float *work,
4735 float *rwork,
4736 ptrdiff_t *info
4737);
4738
4739/* Source: cpbstf.f */
4740#define cpbstf FORTRAN_WRAPPER(cpbstf)
4741extern void cpbstf(
4742 const char *uplo,
4743 const ptrdiff_t *n,
4744 const ptrdiff_t *kd,
4745 float *ab,
4746 const ptrdiff_t *ldab,
4747 ptrdiff_t *info
4748);
4749
4750/* Source: cpbsv.f */
4751#define cpbsv FORTRAN_WRAPPER(cpbsv)
4752extern void cpbsv(
4753 const char *uplo,
4754 const ptrdiff_t *n,
4755 const ptrdiff_t *kd,
4756 const ptrdiff_t *nrhs,
4757 float *ab,
4758 const ptrdiff_t *ldab,
4759 float *b,
4760 const ptrdiff_t *ldb,
4761 ptrdiff_t *info
4762);
4763
4764/* Source: cpbsvx.f */
4765#define cpbsvx FORTRAN_WRAPPER(cpbsvx)
4766extern void cpbsvx(
4767 const char *fact,
4768 const char *uplo,
4769 const ptrdiff_t *n,
4770 const ptrdiff_t *kd,
4771 const ptrdiff_t *nrhs,
4772 float *ab,
4773 const ptrdiff_t *ldab,
4774 float *afb,
4775 const ptrdiff_t *ldafb,
4776 char *equed,
4777 float *s,
4778 float *b,
4779 const ptrdiff_t *ldb,
4780 float *x,
4781 const ptrdiff_t *ldx,
4782 float *rcond,
4783 float *ferr,
4784 float *berr,
4785 float *work,
4786 float *rwork,
4787 ptrdiff_t *info
4788);
4789
4790/* Source: cpbtf2.f */
4791#define cpbtf2 FORTRAN_WRAPPER(cpbtf2)
4792extern void cpbtf2(
4793 const char *uplo,
4794 const ptrdiff_t *n,
4795 const ptrdiff_t *kd,
4796 float *ab,
4797 const ptrdiff_t *ldab,
4798 ptrdiff_t *info
4799);
4800
4801/* Source: cpbtrf.f */
4802#define cpbtrf FORTRAN_WRAPPER(cpbtrf)
4803extern void cpbtrf(
4804 const char *uplo,
4805 const ptrdiff_t *n,
4806 const ptrdiff_t *kd,
4807 float *ab,
4808 const ptrdiff_t *ldab,
4809 ptrdiff_t *info
4810);
4811
4812/* Source: cpbtrs.f */
4813#define cpbtrs FORTRAN_WRAPPER(cpbtrs)
4814extern void cpbtrs(
4815 const char *uplo,
4816 const ptrdiff_t *n,
4817 const ptrdiff_t *kd,
4818 const ptrdiff_t *nrhs,
4819 const float *ab,
4820 const ptrdiff_t *ldab,
4821 float *b,
4822 const ptrdiff_t *ldb,
4823 ptrdiff_t *info
4824);
4825
4826/* Source: cpftrf.f */
4827#define cpftrf FORTRAN_WRAPPER(cpftrf)
4828extern void cpftrf(
4829 const char *transr,
4830 const char *uplo,
4831 const ptrdiff_t *n,
4832 float *a,
4833 ptrdiff_t *info
4834);
4835
4836/* Source: cpftri.f */
4837#define cpftri FORTRAN_WRAPPER(cpftri)
4838extern void cpftri(
4839 const char *transr,
4840 const char *uplo,
4841 const ptrdiff_t *n,
4842 float *a,
4843 ptrdiff_t *info
4844);
4845
4846/* Source: cpftrs.f */
4847#define cpftrs FORTRAN_WRAPPER(cpftrs)
4848extern void cpftrs(
4849 const char *transr,
4850 const char *uplo,
4851 const ptrdiff_t *n,
4852 const ptrdiff_t *nrhs,
4853 const float *a,
4854 float *b,
4855 const ptrdiff_t *ldb,
4856 ptrdiff_t *info
4857);
4858
4859/* Source: cpocon.f */
4860#define cpocon FORTRAN_WRAPPER(cpocon)
4861extern void cpocon(
4862 const char *uplo,
4863 const ptrdiff_t *n,
4864 const float *a,
4865 const ptrdiff_t *lda,
4866 const float *anorm,
4867 float *rcond,
4868 float *work,
4869 float *rwork,
4870 ptrdiff_t *info
4871);
4872
4873/* Source: cpoequ.f */
4874#define cpoequ FORTRAN_WRAPPER(cpoequ)
4875extern void cpoequ(
4876 const ptrdiff_t *n,
4877 const float *a,
4878 const ptrdiff_t *lda,
4879 float *s,
4880 float *scond,
4881 float *amax,
4882 ptrdiff_t *info
4883);
4884
4885/* Source: cpoequb.f */
4886#define cpoequb FORTRAN_WRAPPER(cpoequb)
4887extern void cpoequb(
4888 const ptrdiff_t *n,
4889 const float *a,
4890 const ptrdiff_t *lda,
4891 float *s,
4892 float *scond,
4893 float *amax,
4894 ptrdiff_t *info
4895);
4896
4897/* Source: cporfs.f */
4898#define cporfs FORTRAN_WRAPPER(cporfs)
4899extern void cporfs(
4900 const char *uplo,
4901 const ptrdiff_t *n,
4902 const ptrdiff_t *nrhs,
4903 const float *a,
4904 const ptrdiff_t *lda,
4905 const float *af,
4906 const ptrdiff_t *ldaf,
4907 const float *b,
4908 const ptrdiff_t *ldb,
4909 float *x,
4910 const ptrdiff_t *ldx,
4911 float *ferr,
4912 float *berr,
4913 float *work,
4914 float *rwork,
4915 ptrdiff_t *info
4916);
4917
4918/* Source: cposv.f */
4919#define cposv FORTRAN_WRAPPER(cposv)
4920extern void cposv(
4921 const char *uplo,
4922 const ptrdiff_t *n,
4923 const ptrdiff_t *nrhs,
4924 float *a,
4925 const ptrdiff_t *lda,
4926 float *b,
4927 const ptrdiff_t *ldb,
4928 ptrdiff_t *info
4929);
4930
4931/* Source: cposvx.f */
4932#define cposvx FORTRAN_WRAPPER(cposvx)
4933extern void cposvx(
4934 const char *fact,
4935 const char *uplo,
4936 const ptrdiff_t *n,
4937 const ptrdiff_t *nrhs,
4938 float *a,
4939 const ptrdiff_t *lda,
4940 float *af,
4941 const ptrdiff_t *ldaf,
4942 char *equed,
4943 float *s,
4944 float *b,
4945 const ptrdiff_t *ldb,
4946 float *x,
4947 const ptrdiff_t *ldx,
4948 float *rcond,
4949 float *ferr,
4950 float *berr,
4951 float *work,
4952 float *rwork,
4953 ptrdiff_t *info
4954);
4955
4956/* Source: cpotf2.f */
4957#define cpotf2 FORTRAN_WRAPPER(cpotf2)
4958extern void cpotf2(
4959 const char *uplo,
4960 const ptrdiff_t *n,
4961 float *a,
4962 const ptrdiff_t *lda,
4963 ptrdiff_t *info
4964);
4965
4966/* Source: cpotrf.f */
4967#define cpotrf FORTRAN_WRAPPER(cpotrf)
4968extern void cpotrf(
4969 const char *uplo,
4970 const ptrdiff_t *n,
4971 float *a,
4972 const ptrdiff_t *lda,
4973 ptrdiff_t *info
4974);
4975
4976/* Source: cpotrf2.f */
4977#define cpotrf2 FORTRAN_WRAPPER(cpotrf2)
4978extern void cpotrf2(
4979 const char *uplo,
4980 const ptrdiff_t *n,
4981 float *a,
4982 const ptrdiff_t *lda,
4983 ptrdiff_t *info
4984);
4985
4986/* Source: cpotri.f */
4987#define cpotri FORTRAN_WRAPPER(cpotri)
4988extern void cpotri(
4989 const char *uplo,
4990 const ptrdiff_t *n,
4991 float *a,
4992 const ptrdiff_t *lda,
4993 ptrdiff_t *info
4994);
4995
4996/* Source: cpotrs.f */
4997#define cpotrs FORTRAN_WRAPPER(cpotrs)
4998extern void cpotrs(
4999 const char *uplo,
5000 const ptrdiff_t *n,
5001 const ptrdiff_t *nrhs,
5002 const float *a,
5003 const ptrdiff_t *lda,
5004 float *b,
5005 const ptrdiff_t *ldb,
5006 ptrdiff_t *info
5007);
5008
5009/* Source: cppcon.f */
5010#define cppcon FORTRAN_WRAPPER(cppcon)
5011extern void cppcon(
5012 const char *uplo,
5013 const ptrdiff_t *n,
5014 const float *ap,
5015 const float *anorm,
5016 float *rcond,
5017 float *work,
5018 float *rwork,
5019 ptrdiff_t *info
5020);
5021
5022/* Source: cppequ.f */
5023#define cppequ FORTRAN_WRAPPER(cppequ)
5024extern void cppequ(
5025 const char *uplo,
5026 const ptrdiff_t *n,
5027 const float *ap,
5028 float *s,
5029 float *scond,
5030 float *amax,
5031 ptrdiff_t *info
5032);
5033
5034/* Source: cpprfs.f */
5035#define cpprfs FORTRAN_WRAPPER(cpprfs)
5036extern void cpprfs(
5037 const char *uplo,
5038 const ptrdiff_t *n,
5039 const ptrdiff_t *nrhs,
5040 const float *ap,
5041 const float *afp,
5042 const float *b,
5043 const ptrdiff_t *ldb,
5044 float *x,
5045 const ptrdiff_t *ldx,
5046 float *ferr,
5047 float *berr,
5048 float *work,
5049 float *rwork,
5050 ptrdiff_t *info
5051);
5052
5053/* Source: cppsv.f */
5054#define cppsv FORTRAN_WRAPPER(cppsv)
5055extern void cppsv(
5056 const char *uplo,
5057 const ptrdiff_t *n,
5058 const ptrdiff_t *nrhs,
5059 float *ap,
5060 float *b,
5061 const ptrdiff_t *ldb,
5062 ptrdiff_t *info
5063);
5064
5065/* Source: cppsvx.f */
5066#define cppsvx FORTRAN_WRAPPER(cppsvx)
5067extern void cppsvx(
5068 const char *fact,
5069 const char *uplo,
5070 const ptrdiff_t *n,
5071 const ptrdiff_t *nrhs,
5072 float *ap,
5073 float *afp,
5074 char *equed,
5075 float *s,
5076 float *b,
5077 const ptrdiff_t *ldb,
5078 float *x,
5079 const ptrdiff_t *ldx,
5080 float *rcond,
5081 float *ferr,
5082 float *berr,
5083 float *work,
5084 float *rwork,
5085 ptrdiff_t *info
5086);
5087
5088/* Source: cpptrf.f */
5089#define cpptrf FORTRAN_WRAPPER(cpptrf)
5090extern void cpptrf(
5091 const char *uplo,
5092 const ptrdiff_t *n,
5093 float *ap,
5094 ptrdiff_t *info
5095);
5096
5097/* Source: cpptri.f */
5098#define cpptri FORTRAN_WRAPPER(cpptri)
5099extern void cpptri(
5100 const char *uplo,
5101 const ptrdiff_t *n,
5102 float *ap,
5103 ptrdiff_t *info
5104);
5105
5106/* Source: cpptrs.f */
5107#define cpptrs FORTRAN_WRAPPER(cpptrs)
5108extern void cpptrs(
5109 const char *uplo,
5110 const ptrdiff_t *n,
5111 const ptrdiff_t *nrhs,
5112 const float *ap,
5113 float *b,
5114 const ptrdiff_t *ldb,
5115 ptrdiff_t *info
5116);
5117
5118/* Source: cpstf2.f */
5119#define cpstf2 FORTRAN_WRAPPER(cpstf2)
5120extern void cpstf2(
5121 const char *uplo,
5122 const ptrdiff_t *n,
5123 float *a,
5124 const ptrdiff_t *lda,
5125 ptrdiff_t *piv,
5126 ptrdiff_t *rank,
5127 const float *tol,
5128 float *work,
5129 ptrdiff_t *info
5130);
5131
5132/* Source: cpstrf.f */
5133#define cpstrf FORTRAN_WRAPPER(cpstrf)
5134extern void cpstrf(
5135 const char *uplo,
5136 const ptrdiff_t *n,
5137 float *a,
5138 const ptrdiff_t *lda,
5139 ptrdiff_t *piv,
5140 ptrdiff_t *rank,
5141 const float *tol,
5142 float *work,
5143 ptrdiff_t *info
5144);
5145
5146/* Source: cptcon.f */
5147#define cptcon FORTRAN_WRAPPER(cptcon)
5148extern void cptcon(
5149 const ptrdiff_t *n,
5150 const float *d,
5151 const float *e,
5152 const float *anorm,
5153 float *rcond,
5154 float *rwork,
5155 ptrdiff_t *info
5156);
5157
5158/* Source: cpteqr.f */
5159#define cpteqr FORTRAN_WRAPPER(cpteqr)
5160extern void cpteqr(
5161 const char *compz,
5162 const ptrdiff_t *n,
5163 float *d,
5164 float *e,
5165 float *z,
5166 const ptrdiff_t *ldz,
5167 float *work,
5168 ptrdiff_t *info
5169);
5170
5171/* Source: cptrfs.f */
5172#define cptrfs FORTRAN_WRAPPER(cptrfs)
5173extern void cptrfs(
5174 const char *uplo,
5175 const ptrdiff_t *n,
5176 const ptrdiff_t *nrhs,
5177 const float *d,
5178 const float *e,
5179 const float *df,
5180 const float *ef,
5181 const float *b,
5182 const ptrdiff_t *ldb,
5183 float *x,
5184 const ptrdiff_t *ldx,
5185 float *ferr,
5186 float *berr,
5187 float *work,
5188 float *rwork,
5189 ptrdiff_t *info
5190);
5191
5192/* Source: cptsv.f */
5193#define cptsv FORTRAN_WRAPPER(cptsv)
5194extern void cptsv(
5195 const ptrdiff_t *n,
5196 const ptrdiff_t *nrhs,
5197 float *d,
5198 float *e,
5199 float *b,
5200 const ptrdiff_t *ldb,
5201 ptrdiff_t *info
5202);
5203
5204/* Source: cptsvx.f */
5205#define cptsvx FORTRAN_WRAPPER(cptsvx)
5206extern void cptsvx(
5207 const char *fact,
5208 const ptrdiff_t *n,
5209 const ptrdiff_t *nrhs,
5210 const float *d,
5211 const float *e,
5212 float *df,
5213 float *ef,
5214 const float *b,
5215 const ptrdiff_t *ldb,
5216 float *x,
5217 const ptrdiff_t *ldx,
5218 float *rcond,
5219 float *ferr,
5220 float *berr,
5221 float *work,
5222 float *rwork,
5223 ptrdiff_t *info
5224);
5225
5226/* Source: cpttrf.f */
5227#define cpttrf FORTRAN_WRAPPER(cpttrf)
5228extern void cpttrf(
5229 const ptrdiff_t *n,
5230 float *d,
5231 float *e,
5232 ptrdiff_t *info
5233);
5234
5235/* Source: cpttrs.f */
5236#define cpttrs FORTRAN_WRAPPER(cpttrs)
5237extern void cpttrs(
5238 const char *uplo,
5239 const ptrdiff_t *n,
5240 const ptrdiff_t *nrhs,
5241 const float *d,
5242 const float *e,
5243 float *b,
5244 const ptrdiff_t *ldb,
5245 ptrdiff_t *info
5246);
5247
5248/* Source: cptts2.f */
5249#define cptts2 FORTRAN_WRAPPER(cptts2)
5250extern void cptts2(
5251 const ptrdiff_t *iuplo,
5252 const ptrdiff_t *n,
5253 const ptrdiff_t *nrhs,
5254 const float *d,
5255 const float *e,
5256 float *b,
5257 const ptrdiff_t *ldb
5258);
5259
5260/* Source: crot.f */
5261#define crot FORTRAN_WRAPPER(crot)
5262extern void crot(
5263 const ptrdiff_t *n,
5264 float *cx,
5265 const ptrdiff_t *incx,
5266 float *cy,
5267 const ptrdiff_t *incy,
5268 const float *c,
5269 const float *s
5270);
5271
5272/* Source: cspcon.f */
5273#define cspcon FORTRAN_WRAPPER(cspcon)
5274extern void cspcon(
5275 const char *uplo,
5276 const ptrdiff_t *n,
5277 const float *ap,
5278 const ptrdiff_t *ipiv,
5279 const float *anorm,
5280 float *rcond,
5281 float *work,
5282 ptrdiff_t *info
5283);
5284
5285/* Source: cspmv.f */
5286#define cspmv FORTRAN_WRAPPER(cspmv)
5287extern void cspmv(
5288 const char *uplo,
5289 const ptrdiff_t *n,
5290 const float *alpha,
5291 const float *ap,
5292 const float *x,
5293 const ptrdiff_t *incx,
5294 const float *beta,
5295 float *y,
5296 const ptrdiff_t *incy
5297);
5298
5299/* Source: cspr.f */
5300#define cspr FORTRAN_WRAPPER(cspr)
5301extern void cspr(
5302 const char *uplo,
5303 const ptrdiff_t *n,
5304 const float *alpha,
5305 const float *x,
5306 const ptrdiff_t *incx,
5307 float *ap
5308);
5309
5310/* Source: csprfs.f */
5311#define csprfs FORTRAN_WRAPPER(csprfs)
5312extern void csprfs(
5313 const char *uplo,
5314 const ptrdiff_t *n,
5315 const ptrdiff_t *nrhs,
5316 const float *ap,
5317 const float *afp,
5318 const ptrdiff_t *ipiv,
5319 const float *b,
5320 const ptrdiff_t *ldb,
5321 float *x,
5322 const ptrdiff_t *ldx,
5323 float *ferr,
5324 float *berr,
5325 float *work,
5326 float *rwork,
5327 ptrdiff_t *info
5328);
5329
5330/* Source: cspsv.f */
5331#define cspsv FORTRAN_WRAPPER(cspsv)
5332extern void cspsv(
5333 const char *uplo,
5334 const ptrdiff_t *n,
5335 const ptrdiff_t *nrhs,
5336 float *ap,
5337 ptrdiff_t *ipiv,
5338 float *b,
5339 const ptrdiff_t *ldb,
5340 ptrdiff_t *info
5341);
5342
5343/* Source: cspsvx.f */
5344#define cspsvx FORTRAN_WRAPPER(cspsvx)
5345extern void cspsvx(
5346 const char *fact,
5347 const char *uplo,
5348 const ptrdiff_t *n,
5349 const ptrdiff_t *nrhs,
5350 const float *ap,
5351 float *afp,
5352 ptrdiff_t *ipiv,
5353 const float *b,
5354 const ptrdiff_t *ldb,
5355 float *x,
5356 const ptrdiff_t *ldx,
5357 float *rcond,
5358 float *ferr,
5359 float *berr,
5360 float *work,
5361 float *rwork,
5362 ptrdiff_t *info
5363);
5364
5365/* Source: csptrf.f */
5366#define csptrf FORTRAN_WRAPPER(csptrf)
5367extern void csptrf(
5368 const char *uplo,
5369 const ptrdiff_t *n,
5370 float *ap,
5371 ptrdiff_t *ipiv,
5372 ptrdiff_t *info
5373);
5374
5375/* Source: csptri.f */
5376#define csptri FORTRAN_WRAPPER(csptri)
5377extern void csptri(
5378 const char *uplo,
5379 const ptrdiff_t *n,
5380 float *ap,
5381 const ptrdiff_t *ipiv,
5382 float *work,
5383 ptrdiff_t *info
5384);
5385
5386/* Source: csptrs.f */
5387#define csptrs FORTRAN_WRAPPER(csptrs)
5388extern void csptrs(
5389 const char *uplo,
5390 const ptrdiff_t *n,
5391 const ptrdiff_t *nrhs,
5392 const float *ap,
5393 const ptrdiff_t *ipiv,
5394 float *b,
5395 const ptrdiff_t *ldb,
5396 ptrdiff_t *info
5397);
5398
5399/* Source: csrscl.f */
5400#define csrscl FORTRAN_WRAPPER(csrscl)
5401extern void csrscl(
5402 const ptrdiff_t *n,
5403 const float *sa,
5404 float *sx,
5405 const ptrdiff_t *incx
5406);
5407
5408/* Source: cstedc.f */
5409#define cstedc FORTRAN_WRAPPER(cstedc)
5410extern void cstedc(
5411 const char *compz,
5412 const ptrdiff_t *n,
5413 float *d,
5414 float *e,
5415 float *z,
5416 const ptrdiff_t *ldz,
5417 float *work,
5418 const ptrdiff_t *lwork,
5419 float *rwork,
5420 const ptrdiff_t *lrwork,
5421 ptrdiff_t *iwork,
5422 const ptrdiff_t *liwork,
5423 ptrdiff_t *info
5424);
5425
5426/* Source: cstegr.f */
5427#define cstegr FORTRAN_WRAPPER(cstegr)
5428extern void cstegr(
5429 const char *jobz,
5430 const char *range,
5431 const ptrdiff_t *n,
5432 float *d,
5433 float *e,
5434 const float *vl,
5435 const float *vu,
5436 const ptrdiff_t *il,
5437 const ptrdiff_t *iu,
5438 const float *abstol,
5439 ptrdiff_t *m,
5440 float *w,
5441 float *z,
5442 const ptrdiff_t *ldz,
5443 ptrdiff_t *isuppz,
5444 float *work,
5445 const ptrdiff_t *lwork,
5446 ptrdiff_t *iwork,
5447 const ptrdiff_t *liwork,
5448 ptrdiff_t *info
5449);
5450
5451/* Source: cstein.f */
5452#define cstein FORTRAN_WRAPPER(cstein)
5453extern void cstein(
5454 const ptrdiff_t *n,
5455 const float *d,
5456 const float *e,
5457 const ptrdiff_t *m,
5458 const float *w,
5459 const ptrdiff_t *iblock,
5460 const ptrdiff_t *isplit,
5461 float *z,
5462 const ptrdiff_t *ldz,
5463 float *work,
5464 ptrdiff_t *iwork,
5465 ptrdiff_t *ifail,
5466 ptrdiff_t *info
5467);
5468
5469/* Source: cstemr.f */
5470#define cstemr FORTRAN_WRAPPER(cstemr)
5471extern void cstemr(
5472 const char *jobz,
5473 const char *range,
5474 const ptrdiff_t *n,
5475 float *d,
5476 float *e,
5477 const float *vl,
5478 const float *vu,
5479 const ptrdiff_t *il,
5480 const ptrdiff_t *iu,
5481 ptrdiff_t *m,
5482 float *w,
5483 float *z,
5484 const ptrdiff_t *ldz,
5485 const ptrdiff_t *nzc,
5486 ptrdiff_t *isuppz,
5487 ptrdiff_t *tryrac,
5488 float *work,
5489 const ptrdiff_t *lwork,
5490 ptrdiff_t *iwork,
5491 const ptrdiff_t *liwork,
5492 ptrdiff_t *info
5493);
5494
5495/* Source: csteqr.f */
5496#define csteqr FORTRAN_WRAPPER(csteqr)
5497extern void csteqr(
5498 const char *compz,
5499 const ptrdiff_t *n,
5500 float *d,
5501 float *e,
5502 float *z,
5503 const ptrdiff_t *ldz,
5504 float *work,
5505 ptrdiff_t *info
5506);
5507
5508/* Source: csycon.f */
5509#define csycon FORTRAN_WRAPPER(csycon)
5510extern void csycon(
5511 const char *uplo,
5512 const ptrdiff_t *n,
5513 const float *a,
5514 const ptrdiff_t *lda,
5515 const ptrdiff_t *ipiv,
5516 const float *anorm,
5517 float *rcond,
5518 float *work,
5519 ptrdiff_t *info
5520);
5521
5522/* Source: csycon_3.f */
5523#define csycon_3 FORTRAN_WRAPPER(csycon_3)
5524extern void csycon_3(
5525 char *uplo,
5526 ptrdiff_t *n,
5527 float *a,
5528 ptrdiff_t *lda,
5529 float *e,
5530 ptrdiff_t *ipiv,
5531 float *anorm,
5532 float *rcond,
5533 float *work,
5534 ptrdiff_t *info
5535);
5536
5537/* Source: csycon_rook.f */
5538#define csycon_rook FORTRAN_WRAPPER(csycon_rook)
5539extern void csycon_rook(
5540 const char *uplo,
5541 const ptrdiff_t *n,
5542 const float *a,
5543 const ptrdiff_t *lda,
5544 const ptrdiff_t *ipiv,
5545 const float *anorm,
5546 float *rcond,
5547 float *work,
5548 ptrdiff_t *info
5549);
5550
5551/* Source: csyconv.f */
5552#define csyconv FORTRAN_WRAPPER(csyconv)
5553extern void csyconv(
5554 const char *uplo,
5555 const char *way,
5556 const ptrdiff_t *n,
5557 float *a,
5558 const ptrdiff_t *lda,
5559 const ptrdiff_t *ipiv,
5560 float *e,
5561 ptrdiff_t *info
5562);
5563
5564/* Source: csyconvf.f */
5565#define csyconvf FORTRAN_WRAPPER(csyconvf)
5566extern void csyconvf(
5567 char *uplo,
5568 char *way,
5569 ptrdiff_t *n,
5570 float *a,
5571 ptrdiff_t *lda,
5572 float *e,
5573 ptrdiff_t *ipiv,
5574 ptrdiff_t *info
5575);
5576
5577/* Source: csyconvf_rook.f */
5578#define csyconvf_rook FORTRAN_WRAPPER(csyconvf_rook)
5579extern void csyconvf_rook(
5580 char *uplo,
5581 char *way,
5582 ptrdiff_t *n,
5583 float *a,
5584 ptrdiff_t *lda,
5585 float *e,
5586 ptrdiff_t *ipiv,
5587 ptrdiff_t *info
5588);
5589
5590/* Source: csyequb.f */
5591#define csyequb FORTRAN_WRAPPER(csyequb)
5592extern void csyequb(
5593 char *uplo,
5594 const ptrdiff_t *n,
5595 const float *a,
5596 const ptrdiff_t *lda,
5597 float *s,
5598 float *scond,
5599 float *amax,
5600 float *work,
5601 ptrdiff_t *info
5602);
5603
5604/* Source: csymv.f */
5605#define csymv FORTRAN_WRAPPER(csymv)
5606extern void csymv(
5607 const char *uplo,
5608 const ptrdiff_t *n,
5609 const float *alpha,
5610 const float *a,
5611 const ptrdiff_t *lda,
5612 const float *x,
5613 const ptrdiff_t *incx,
5614 const float *beta,
5615 float *y,
5616 const ptrdiff_t *incy
5617);
5618
5619/* Source: csyr.f */
5620#define csyr FORTRAN_WRAPPER(csyr)
5621extern void csyr(
5622 const char *uplo,
5623 const ptrdiff_t *n,
5624 const float *alpha,
5625 const float *x,
5626 const ptrdiff_t *incx,
5627 float *a,
5628 const ptrdiff_t *lda
5629);
5630
5631/* Source: csyrfs.f */
5632#define csyrfs FORTRAN_WRAPPER(csyrfs)
5633extern void csyrfs(
5634 const char *uplo,
5635 const ptrdiff_t *n,
5636 const ptrdiff_t *nrhs,
5637 const float *a,
5638 const ptrdiff_t *lda,
5639 const float *af,
5640 const ptrdiff_t *ldaf,
5641 const ptrdiff_t *ipiv,
5642 const float *b,
5643 const ptrdiff_t *ldb,
5644 float *x,
5645 const ptrdiff_t *ldx,
5646 float *ferr,
5647 float *berr,
5648 float *work,
5649 float *rwork,
5650 ptrdiff_t *info
5651);
5652
5653/* Source: csysv.f */
5654#define csysv FORTRAN_WRAPPER(csysv)
5655extern void csysv(
5656 const char *uplo,
5657 const ptrdiff_t *n,
5658 const ptrdiff_t *nrhs,
5659 float *a,
5660 const ptrdiff_t *lda,
5661 ptrdiff_t *ipiv,
5662 float *b,
5663 const ptrdiff_t *ldb,
5664 float *work,
5665 const ptrdiff_t *lwork,
5666 ptrdiff_t *info
5667);
5668
5669/* Source: csysv_aa.f */
5670#define csysv_aa FORTRAN_WRAPPER(csysv_aa)
5671extern void csysv_aa(
5672 char *uplo,
5673 ptrdiff_t *n,
5674 ptrdiff_t *nrhs,
5675 float *a,
5676 ptrdiff_t *lda,
5677 ptrdiff_t *ipiv,
5678 float *b,
5679 ptrdiff_t *ldb,
5680 float *work,
5681 ptrdiff_t *lwork,
5682 ptrdiff_t *info
5683);
5684
5685/* Source: csysv_rk.f */
5686#define csysv_rk FORTRAN_WRAPPER(csysv_rk)
5687extern void csysv_rk(
5688 char *uplo,
5689 ptrdiff_t *n,
5690 ptrdiff_t *nrhs,
5691 float *a,
5692 ptrdiff_t *lda,
5693 float *e,
5694 ptrdiff_t *ipiv,
5695 float *b,
5696 ptrdiff_t *ldb,
5697 float *work,
5698 ptrdiff_t *lwork,
5699 ptrdiff_t *info
5700);
5701
5702/* Source: csysv_rook.f */
5703#define csysv_rook FORTRAN_WRAPPER(csysv_rook)
5704extern void csysv_rook(
5705 const char *uplo,
5706 const ptrdiff_t *n,
5707 const ptrdiff_t *nrhs,
5708 float *a,
5709 const ptrdiff_t *lda,
5710 ptrdiff_t *ipiv,
5711 float *b,
5712 const ptrdiff_t *ldb,
5713 float *work,
5714 const ptrdiff_t *lwork,
5715 ptrdiff_t *info
5716);
5717
5718/* Source: csysvx.f */
5719#define csysvx FORTRAN_WRAPPER(csysvx)
5720extern void csysvx(
5721 const char *fact,
5722 const char *uplo,
5723 const ptrdiff_t *n,
5724 const ptrdiff_t *nrhs,
5725 const float *a,
5726 const ptrdiff_t *lda,
5727 float *af,
5728 const ptrdiff_t *ldaf,
5729 ptrdiff_t *ipiv,
5730 const float *b,
5731 const ptrdiff_t *ldb,
5732 float *x,
5733 const ptrdiff_t *ldx,
5734 float *rcond,
5735 float *ferr,
5736 float *berr,
5737 float *work,
5738 const ptrdiff_t *lwork,
5739 float *rwork,
5740 ptrdiff_t *info
5741);
5742
5743/* Source: csyswapr.f */
5744#define csyswapr FORTRAN_WRAPPER(csyswapr)
5745extern void csyswapr(
5746 const char *uplo,
5747 const ptrdiff_t *n,
5748 float *a,
5749 const ptrdiff_t *lda,
5750 const ptrdiff_t *i1,
5751 const ptrdiff_t *i2
5752);
5753
5754/* Source: csytf2.f */
5755#define csytf2 FORTRAN_WRAPPER(csytf2)
5756extern void csytf2(
5757 const char *uplo,
5758 const ptrdiff_t *n,
5759 float *a,
5760 const ptrdiff_t *lda,
5761 ptrdiff_t *ipiv,
5762 ptrdiff_t *info
5763);
5764
5765/* Source: csytf2_rk.f */
5766#define csytf2_rk FORTRAN_WRAPPER(csytf2_rk)
5767extern void csytf2_rk(
5768 char *uplo,
5769 ptrdiff_t *n,
5770 float *a,
5771 ptrdiff_t *lda,
5772 float *e,
5773 ptrdiff_t *ipiv,
5774 ptrdiff_t *info
5775);
5776
5777/* Source: csytf2_rook.f */
5778#define csytf2_rook FORTRAN_WRAPPER(csytf2_rook)
5779extern void csytf2_rook(
5780 const char *uplo,
5781 const ptrdiff_t *n,
5782 float *a,
5783 const ptrdiff_t *lda,
5784 ptrdiff_t *ipiv,
5785 ptrdiff_t *info
5786);
5787
5788/* Source: csytrf.f */
5789#define csytrf FORTRAN_WRAPPER(csytrf)
5790extern void csytrf(
5791 const char *uplo,
5792 const ptrdiff_t *n,
5793 float *a,
5794 const ptrdiff_t *lda,
5795 ptrdiff_t *ipiv,
5796 float *work,
5797 const ptrdiff_t *lwork,
5798 ptrdiff_t *info
5799);
5800
5801/* Source: csytrf_aa.f */
5802#define csytrf_aa FORTRAN_WRAPPER(csytrf_aa)
5803extern void csytrf_aa(
5804 char *uplo,
5805 ptrdiff_t *n,
5806 float *a,
5807 ptrdiff_t *lda,
5808 ptrdiff_t *ipiv,
5809 float *work,
5810 ptrdiff_t *lwork,
5811 ptrdiff_t *info
5812);
5813
5814/* Source: csytrf_rk.f */
5815#define csytrf_rk FORTRAN_WRAPPER(csytrf_rk)
5816extern void csytrf_rk(
5817 char *uplo,
5818 ptrdiff_t *n,
5819 float *a,
5820 ptrdiff_t *lda,
5821 float *e,
5822 ptrdiff_t *ipiv,
5823 float *work,
5824 ptrdiff_t *lwork,
5825 ptrdiff_t *info
5826);
5827
5828/* Source: csytrf_rook.f */
5829#define csytrf_rook FORTRAN_WRAPPER(csytrf_rook)
5830extern void csytrf_rook(
5831 const char *uplo,
5832 const ptrdiff_t *n,
5833 float *a,
5834 const ptrdiff_t *lda,
5835 ptrdiff_t *ipiv,
5836 float *work,
5837 const ptrdiff_t *lwork,
5838 ptrdiff_t *info
5839);
5840
5841/* Source: csytri.f */
5842#define csytri FORTRAN_WRAPPER(csytri)
5843extern void csytri(
5844 const char *uplo,
5845 const ptrdiff_t *n,
5846 float *a,
5847 const ptrdiff_t *lda,
5848 const ptrdiff_t *ipiv,
5849 float *work,
5850 ptrdiff_t *info
5851);
5852
5853/* Source: csytri2.f */
5854#define csytri2 FORTRAN_WRAPPER(csytri2)
5855extern void csytri2(
5856 const char *uplo,
5857 const ptrdiff_t *n,
5858 float *a,
5859 const ptrdiff_t *lda,
5860 const ptrdiff_t *ipiv,
5861 float *work,
5862 const ptrdiff_t *lwork,
5863 ptrdiff_t *info
5864);
5865
5866/* Source: csytri2x.f */
5867#define csytri2x FORTRAN_WRAPPER(csytri2x)
5868extern void csytri2x(
5869 const char *uplo,
5870 const ptrdiff_t *n,
5871 float *a,
5872 const ptrdiff_t *lda,
5873 const ptrdiff_t *ipiv,
5874 float *work,
5875 ptrdiff_t *nb,
5876 ptrdiff_t *info
5877);
5878
5879/* Source: csytri_3.f */
5880#define csytri_3 FORTRAN_WRAPPER(csytri_3)
5881extern void csytri_3(
5882 char *uplo,
5883 ptrdiff_t *n,
5884 float *a,
5885 ptrdiff_t *lda,
5886 float *e,
5887 ptrdiff_t *ipiv,
5888 float *work,
5889 ptrdiff_t *lwork,
5890 ptrdiff_t *info
5891);
5892
5893/* Source: csytri_3x.f */
5894#define csytri_3x FORTRAN_WRAPPER(csytri_3x)
5895extern void csytri_3x(
5896 char *uplo,
5897 ptrdiff_t *n,
5898 float *a,
5899 ptrdiff_t *lda,
5900 float *e,
5901 ptrdiff_t *ipiv,
5902 float *work,
5903 ptrdiff_t *nb,
5904 ptrdiff_t *info
5905);
5906
5907/* Source: csytri_rook.f */
5908#define csytri_rook FORTRAN_WRAPPER(csytri_rook)
5909extern void csytri_rook(
5910 const char *uplo,
5911 const ptrdiff_t *n,
5912 float *a,
5913 const ptrdiff_t *lda,
5914 const ptrdiff_t *ipiv,
5915 float *work,
5916 ptrdiff_t *info
5917);
5918
5919/* Source: csytrs.f */
5920#define csytrs FORTRAN_WRAPPER(csytrs)
5921extern void csytrs(
5922 const char *uplo,
5923 const ptrdiff_t *n,
5924 const ptrdiff_t *nrhs,
5925 const float *a,
5926 const ptrdiff_t *lda,
5927 const ptrdiff_t *ipiv,
5928 float *b,
5929 const ptrdiff_t *ldb,
5930 ptrdiff_t *info
5931);
5932
5933/* Source: csytrs2.f */
5934#define csytrs2 FORTRAN_WRAPPER(csytrs2)
5935extern void csytrs2(
5936 const char *uplo,
5937 const ptrdiff_t *n,
5938 const ptrdiff_t *nrhs,
5939 const float *a,
5940 const ptrdiff_t *lda,
5941 const ptrdiff_t *ipiv,
5942 float *b,
5943 const ptrdiff_t *ldb,
5944 float *work,
5945 ptrdiff_t *info
5946);
5947
5948/* Source: csytrs_3.f */
5949#define csytrs_3 FORTRAN_WRAPPER(csytrs_3)
5950extern void csytrs_3(
5951 char *uplo,
5952 ptrdiff_t *n,
5953 ptrdiff_t *nrhs,
5954 float *a,
5955 ptrdiff_t *lda,
5956 float *e,
5957 ptrdiff_t *ipiv,
5958 float *b,
5959 ptrdiff_t *ldb,
5960 ptrdiff_t *info
5961);
5962
5963/* Source: csytrs_aa.f */
5964#define csytrs_aa FORTRAN_WRAPPER(csytrs_aa)
5965extern void csytrs_aa(
5966 char *uplo,
5967 ptrdiff_t *n,
5968 ptrdiff_t *nrhs,
5969 float *a,
5970 ptrdiff_t *lda,
5971 ptrdiff_t *ipiv,
5972 float *b,
5973 ptrdiff_t *ldb,
5974 float *work,
5975 ptrdiff_t *lwork,
5976 ptrdiff_t *info
5977);
5978
5979/* Source: csytrs_rook.f */
5980#define csytrs_rook FORTRAN_WRAPPER(csytrs_rook)
5981extern void csytrs_rook(
5982 const char *uplo,
5983 const ptrdiff_t *n,
5984 const ptrdiff_t *nrhs,
5985 const float *a,
5986 const ptrdiff_t *lda,
5987 const ptrdiff_t *ipiv,
5988 float *b,
5989 const ptrdiff_t *ldb,
5990 ptrdiff_t *info
5991);
5992
5993/* Source: ctbcon.f */
5994#define ctbcon FORTRAN_WRAPPER(ctbcon)
5995extern void ctbcon(
5996 const char *norm,
5997 const char *uplo,
5998 const char *diag,
5999 const ptrdiff_t *n,
6000 const ptrdiff_t *kd,
6001 const float *ab,
6002 const ptrdiff_t *ldab,
6003 float *rcond,
6004 float *work,
6005 float *rwork,
6006 ptrdiff_t *info
6007);
6008
6009/* Source: ctbrfs.f */
6010#define ctbrfs FORTRAN_WRAPPER(ctbrfs)
6011extern void ctbrfs(
6012 const char *uplo,
6013 const char *trans,
6014 const char *diag,
6015 const ptrdiff_t *n,
6016 const ptrdiff_t *kd,
6017 const ptrdiff_t *nrhs,
6018 const float *ab,
6019 const ptrdiff_t *ldab,
6020 const float *b,
6021 const ptrdiff_t *ldb,
6022 const float *x,
6023 const ptrdiff_t *ldx,
6024 float *ferr,
6025 float *berr,
6026 float *work,
6027 float *rwork,
6028 ptrdiff_t *info
6029);
6030
6031/* Source: ctbtrs.f */
6032#define ctbtrs FORTRAN_WRAPPER(ctbtrs)
6033extern void ctbtrs(
6034 const char *uplo,
6035 const char *trans,
6036 const char *diag,
6037 const ptrdiff_t *n,
6038 const ptrdiff_t *kd,
6039 const ptrdiff_t *nrhs,
6040 const float *ab,
6041 const ptrdiff_t *ldab,
6042 float *b,
6043 const ptrdiff_t *ldb,
6044 ptrdiff_t *info
6045);
6046
6047/* Source: ctfsm.f */
6048#define ctfsm FORTRAN_WRAPPER(ctfsm)
6049extern void ctfsm(
6050 const char *transr,
6051 const char *side,
6052 const char *uplo,
6053 const char *trans,
6054 const char *diag,
6055 const ptrdiff_t *m,
6056 const ptrdiff_t *n,
6057 const float *alpha,
6058 const float *a,
6059 float *b,
6060 const ptrdiff_t *ldb
6061);
6062
6063/* Source: ctftri.f */
6064#define ctftri FORTRAN_WRAPPER(ctftri)
6065extern void ctftri(
6066 const char *transr,
6067 const char *uplo,
6068 const char *diag,
6069 const ptrdiff_t *n,
6070 float *a,
6071 ptrdiff_t *info
6072);
6073
6074/* Source: ctfttp.f */
6075#define ctfttp FORTRAN_WRAPPER(ctfttp)
6076extern void ctfttp(
6077 const char *transr,
6078 const char *uplo,
6079 const ptrdiff_t *n,
6080 const float *arf,
6081 float *ap,
6082 ptrdiff_t *info
6083);
6084
6085/* Source: ctfttr.f */
6086#define ctfttr FORTRAN_WRAPPER(ctfttr)
6087extern void ctfttr(
6088 const char *transr,
6089 const char *uplo,
6090 const ptrdiff_t *n,
6091 const float *arf,
6092 float *a,
6093 const ptrdiff_t *lda,
6094 ptrdiff_t *info
6095);
6096
6097/* Source: ctgevc.f */
6098#define ctgevc FORTRAN_WRAPPER(ctgevc)
6099extern void ctgevc(
6100 const char *side,
6101 const char *howmny,
6102 const ptrdiff_t *select,
6103 const ptrdiff_t *n,
6104 const float *s,
6105 const ptrdiff_t *lds,
6106 const float *p,
6107 const ptrdiff_t *ldp,
6108 float *vl,
6109 const ptrdiff_t *ldvl,
6110 float *vr,
6111 const ptrdiff_t *ldvr,
6112 const ptrdiff_t *mm,
6113 ptrdiff_t *m,
6114 float *work,
6115 float *rwork,
6116 ptrdiff_t *info
6117);
6118
6119/* Source: ctgex2.f */
6120#define ctgex2 FORTRAN_WRAPPER(ctgex2)
6121extern void ctgex2(
6122 const ptrdiff_t *wantq,
6123 const ptrdiff_t *wantz,
6124 const ptrdiff_t *n,
6125 float *a,
6126 const ptrdiff_t *lda,
6127 float *b,
6128 const ptrdiff_t *ldb,
6129 float *q,
6130 const ptrdiff_t *ldq,
6131 float *z,
6132 const ptrdiff_t *ldz,
6133 const ptrdiff_t *j1_,
6134 ptrdiff_t *info
6135);
6136
6137/* Source: ctgexc.f */
6138#define ctgexc FORTRAN_WRAPPER(ctgexc)
6139extern void ctgexc(
6140 const ptrdiff_t *wantq,
6141 const ptrdiff_t *wantz,
6142 const ptrdiff_t *n,
6143 float *a,
6144 const ptrdiff_t *lda,
6145 float *b,
6146 const ptrdiff_t *ldb,
6147 float *q,
6148 const ptrdiff_t *ldq,
6149 float *z,
6150 const ptrdiff_t *ldz,
6151 const ptrdiff_t *ifst,
6152 ptrdiff_t *ilst,
6153 ptrdiff_t *info
6154);
6155
6156/* Source: ctgsen.f */
6157#define ctgsen FORTRAN_WRAPPER(ctgsen)
6158extern void ctgsen(
6159 const ptrdiff_t *ijob,
6160 const ptrdiff_t *wantq,
6161 const ptrdiff_t *wantz,
6162 const ptrdiff_t *select,
6163 const ptrdiff_t *n,
6164 float *a,
6165 const ptrdiff_t *lda,
6166 float *b,
6167 const ptrdiff_t *ldb,
6168 float *alpha,
6169 float *beta,
6170 float *q,
6171 const ptrdiff_t *ldq,
6172 float *z,
6173 const ptrdiff_t *ldz,
6174 ptrdiff_t *m,
6175 float *pl,
6176 float *pr,
6177 float *dif,
6178 float *work,
6179 const ptrdiff_t *lwork,
6180 ptrdiff_t *iwork,
6181 const ptrdiff_t *liwork,
6182 ptrdiff_t *info
6183);
6184
6185/* Source: ctgsja.f */
6186#define ctgsja FORTRAN_WRAPPER(ctgsja)
6187extern void ctgsja(
6188 const char *jobu,
6189 const char *jobv,
6190 const char *jobq,
6191 const ptrdiff_t *m,
6192 const ptrdiff_t *p,
6193 const ptrdiff_t *n,
6194 const ptrdiff_t *k,
6195 const ptrdiff_t *l,
6196 float *a,
6197 const ptrdiff_t *lda,
6198 float *b,
6199 const ptrdiff_t *ldb,
6200 const float *tola,
6201 const float *tolb,
6202 float *alpha,
6203 float *beta,
6204 float *u,
6205 const ptrdiff_t *ldu,
6206 float *v,
6207 const ptrdiff_t *ldv,
6208 float *q,
6209 const ptrdiff_t *ldq,
6210 float *work,
6211 ptrdiff_t *ncycle,
6212 ptrdiff_t *info
6213);
6214
6215/* Source: ctgsna.f */
6216#define ctgsna FORTRAN_WRAPPER(ctgsna)
6217extern void ctgsna(
6218 const char *job,
6219 const char *howmny,
6220 const ptrdiff_t *select,
6221 const ptrdiff_t *n,
6222 const float *a,
6223 const ptrdiff_t *lda,
6224 const float *b,
6225 const ptrdiff_t *ldb,
6226 const float *vl,
6227 const ptrdiff_t *ldvl,
6228 const float *vr,
6229 const ptrdiff_t *ldvr,
6230 float *s,
6231 float *dif,
6232 const ptrdiff_t *mm,
6233 ptrdiff_t *m,
6234 float *work,
6235 const ptrdiff_t *lwork,
6236 ptrdiff_t *iwork,
6237 ptrdiff_t *info
6238);
6239
6240/* Source: ctgsy2.f */
6241#define ctgsy2 FORTRAN_WRAPPER(ctgsy2)
6242extern void ctgsy2(
6243 const char *trans,
6244 const ptrdiff_t *ijob,
6245 const ptrdiff_t *m,
6246 const ptrdiff_t *n,
6247 const float *a,
6248 const ptrdiff_t *lda,
6249 const float *b,
6250 const ptrdiff_t *ldb,
6251 float *c,
6252 const ptrdiff_t *ldc,
6253 const float *d,
6254 const ptrdiff_t *ldd,
6255 const float *e,
6256 const ptrdiff_t *lde,
6257 float *f,
6258 const ptrdiff_t *ldf,
6259 float *scale,
6260 float *rdsum,
6261 float *rdscal,
6262 ptrdiff_t *info
6263);
6264
6265/* Source: ctgsyl.f */
6266#define ctgsyl FORTRAN_WRAPPER(ctgsyl)
6267extern void ctgsyl(
6268 const char *trans,
6269 const ptrdiff_t *ijob,
6270 const ptrdiff_t *m,
6271 const ptrdiff_t *n,
6272 const float *a,
6273 const ptrdiff_t *lda,
6274 const float *b,
6275 const ptrdiff_t *ldb,
6276 float *c,
6277 const ptrdiff_t *ldc,
6278 const float *d,
6279 const ptrdiff_t *ldd,
6280 const float *e,
6281 const ptrdiff_t *lde,
6282 float *f,
6283 const ptrdiff_t *ldf,
6284 float *scale,
6285 float *dif,
6286 float *work,
6287 const ptrdiff_t *lwork,
6288 ptrdiff_t *iwork,
6289 ptrdiff_t *info
6290);
6291
6292/* Source: ctpcon.f */
6293#define ctpcon FORTRAN_WRAPPER(ctpcon)
6294extern void ctpcon(
6295 const char *norm,
6296 const char *uplo,
6297 const char *diag,
6298 const ptrdiff_t *n,
6299 const float *ap,
6300 float *rcond,
6301 float *work,
6302 float *rwork,
6303 ptrdiff_t *info
6304);
6305
6306/* Source: ctplqt.f */
6307#define ctplqt FORTRAN_WRAPPER(ctplqt)
6308extern void ctplqt(
6309 const ptrdiff_t *m,
6310 const ptrdiff_t *n,
6311 const ptrdiff_t *l,
6312 const ptrdiff_t *mb,
6313 float *a,
6314 const ptrdiff_t *lda,
6315 float *b,
6316 const ptrdiff_t *ldb,
6317 float *t,
6318 const ptrdiff_t *ldt,
6319 float *work,
6320 ptrdiff_t *info
6321);
6322
6323/* Source: ctplqt2.f */
6324#define ctplqt2 FORTRAN_WRAPPER(ctplqt2)
6325extern void ctplqt2(
6326 const ptrdiff_t *m,
6327 const ptrdiff_t *n,
6328 const ptrdiff_t *l,
6329 float *a,
6330 const ptrdiff_t *lda,
6331 float *b,
6332 const ptrdiff_t *ldb,
6333 float *t,
6334 const ptrdiff_t *ldt,
6335 ptrdiff_t *info
6336);
6337
6338/* Source: ctpmlqt.f */
6339#define ctpmlqt FORTRAN_WRAPPER(ctpmlqt)
6340extern void ctpmlqt(
6341 const char *side,
6342 const char *trans,
6343 const ptrdiff_t *m,
6344 const ptrdiff_t *n,
6345 const ptrdiff_t *k,
6346 const ptrdiff_t *l,
6347 const ptrdiff_t *mb,
6348 const float *v,
6349 const ptrdiff_t *ldv,
6350 const float *t,
6351 const ptrdiff_t *ldt,
6352 float *a,
6353 const ptrdiff_t *lda,
6354 float *b,
6355 const ptrdiff_t *ldb,
6356 float *work,
6357 ptrdiff_t *info
6358);
6359
6360/* Source: ctpmqrt.f */
6361#define ctpmqrt FORTRAN_WRAPPER(ctpmqrt)
6362extern void ctpmqrt(
6363 const char *side,
6364 const char *trans,
6365 const ptrdiff_t *m,
6366 const ptrdiff_t *n,
6367 const ptrdiff_t *k,
6368 const ptrdiff_t *l,
6369 const ptrdiff_t *nb,
6370 const float *v,
6371 const ptrdiff_t *ldv,
6372 const float *t,
6373 const ptrdiff_t *ldt,
6374 float *a,
6375 const ptrdiff_t *lda,
6376 float *b,
6377 const ptrdiff_t *ldb,
6378 float *work,
6379 ptrdiff_t *info
6380);
6381
6382/* Source: ctpqrt.f */
6383#define ctpqrt FORTRAN_WRAPPER(ctpqrt)
6384extern void ctpqrt(
6385 const ptrdiff_t *m,
6386 const ptrdiff_t *n,
6387 const ptrdiff_t *l,
6388 const ptrdiff_t *nb,
6389 float *a,
6390 const ptrdiff_t *lda,
6391 float *b,
6392 const ptrdiff_t *ldb,
6393 float *t,
6394 const ptrdiff_t *ldt,
6395 float *work,
6396 ptrdiff_t *info
6397);
6398
6399/* Source: ctpqrt2.f */
6400#define ctpqrt2 FORTRAN_WRAPPER(ctpqrt2)
6401extern void ctpqrt2(
6402 const ptrdiff_t *m,
6403 const ptrdiff_t *n,
6404 const ptrdiff_t *l,
6405 float *a,
6406 const ptrdiff_t *lda,
6407 float *b,
6408 const ptrdiff_t *ldb,
6409 float *t,
6410 const ptrdiff_t *ldt,
6411 ptrdiff_t *info
6412);
6413
6414/* Source: ctprfb.f */
6415#define ctprfb FORTRAN_WRAPPER(ctprfb)
6416extern void ctprfb(
6417 const char *side,
6418 const char *trans,
6419 const char *direct,
6420 const char *storev,
6421 const ptrdiff_t *m,
6422 const ptrdiff_t *n,
6423 const ptrdiff_t *k,
6424 const ptrdiff_t *l,
6425 const float *v,
6426 const ptrdiff_t *ldv,
6427 const float *t,
6428 const ptrdiff_t *ldt,
6429 float *a,
6430 const ptrdiff_t *lda,
6431 float *b,
6432 const ptrdiff_t *ldb,
6433 float *work,
6434 const ptrdiff_t *ldwork
6435);
6436
6437/* Source: ctprfs.f */
6438#define ctprfs FORTRAN_WRAPPER(ctprfs)
6439extern void ctprfs(
6440 const char *uplo,
6441 const char *trans,
6442 const char *diag,
6443 const ptrdiff_t *n,
6444 const ptrdiff_t *nrhs,
6445 const float *ap,
6446 const float *b,
6447 const ptrdiff_t *ldb,
6448 const float *x,
6449 const ptrdiff_t *ldx,
6450 float *ferr,
6451 float *berr,
6452 float *work,
6453 float *rwork,
6454 ptrdiff_t *info
6455);
6456
6457/* Source: ctptri.f */
6458#define ctptri FORTRAN_WRAPPER(ctptri)
6459extern void ctptri(
6460 const char *uplo,
6461 const char *diag,
6462 const ptrdiff_t *n,
6463 float *ap,
6464 ptrdiff_t *info
6465);
6466
6467/* Source: ctptrs.f */
6468#define ctptrs FORTRAN_WRAPPER(ctptrs)
6469extern void ctptrs(
6470 const char *uplo,
6471 const char *trans,
6472 const char *diag,
6473 const ptrdiff_t *n,
6474 const ptrdiff_t *nrhs,
6475 const float *ap,
6476 float *b,
6477 const ptrdiff_t *ldb,
6478 ptrdiff_t *info
6479);
6480
6481/* Source: ctpttf.f */
6482#define ctpttf FORTRAN_WRAPPER(ctpttf)
6483extern void ctpttf(
6484 const char *transr,
6485 const char *uplo,
6486 const ptrdiff_t *n,
6487 const float *ap,
6488 float *arf,
6489 ptrdiff_t *info
6490);
6491
6492/* Source: ctpttr.f */
6493#define ctpttr FORTRAN_WRAPPER(ctpttr)
6494extern void ctpttr(
6495 const char *uplo,
6496 const ptrdiff_t *n,
6497 const float *ap,
6498 float *a,
6499 const ptrdiff_t *lda,
6500 ptrdiff_t *info
6501);
6502
6503/* Source: ctrcon.f */
6504#define ctrcon FORTRAN_WRAPPER(ctrcon)
6505extern void ctrcon(
6506 const char *norm,
6507 const char *uplo,
6508 const char *diag,
6509 const ptrdiff_t *n,
6510 const float *a,
6511 const ptrdiff_t *lda,
6512 float *rcond,
6513 float *work,
6514 float *rwork,
6515 ptrdiff_t *info
6516);
6517
6518/* Source: ctrevc.f */
6519#define ctrevc FORTRAN_WRAPPER(ctrevc)
6520extern void ctrevc(
6521 const char *side,
6522 const char *howmny,
6523 const ptrdiff_t *select,
6524 const ptrdiff_t *n,
6525 float *t,
6526 const ptrdiff_t *ldt,
6527 float *vl,
6528 const ptrdiff_t *ldvl,
6529 float *vr,
6530 const ptrdiff_t *ldvr,
6531 const ptrdiff_t *mm,
6532 ptrdiff_t *m,
6533 float *work,
6534 float *rwork,
6535 ptrdiff_t *info
6536);
6537
6538/* Source: ctrevc3.f */
6539#define ctrevc3 FORTRAN_WRAPPER(ctrevc3)
6540extern void ctrevc3(
6541 char *side,
6542 char *howmny,
6543 ptrdiff_t *select,
6544 ptrdiff_t *n,
6545 float *t,
6546 ptrdiff_t *ldt,
6547 float *vl,
6548 ptrdiff_t *ldvl,
6549 float *vr,
6550 ptrdiff_t *ldvr,
6551 ptrdiff_t *mm,
6552 ptrdiff_t *m,
6553 float *work,
6554 ptrdiff_t *lwork,
6555 float *rwork,
6556 ptrdiff_t *lrwork,
6557 ptrdiff_t *info
6558);
6559
6560/* Source: ctrexc.f */
6561#define ctrexc FORTRAN_WRAPPER(ctrexc)
6562extern void ctrexc(
6563 const char *compq,
6564 const ptrdiff_t *n,
6565 float *t,
6566 const ptrdiff_t *ldt,
6567 float *q,
6568 const ptrdiff_t *ldq,
6569 const ptrdiff_t *ifst,
6570 const ptrdiff_t *ilst,
6571 ptrdiff_t *info
6572);
6573
6574/* Source: ctrrfs.f */
6575#define ctrrfs FORTRAN_WRAPPER(ctrrfs)
6576extern void ctrrfs(
6577 const char *uplo,
6578 const char *trans,
6579 const char *diag,
6580 const ptrdiff_t *n,
6581 const ptrdiff_t *nrhs,
6582 const float *a,
6583 const ptrdiff_t *lda,
6584 const float *b,
6585 const ptrdiff_t *ldb,
6586 const float *x,
6587 const ptrdiff_t *ldx,
6588 float *ferr,
6589 float *berr,
6590 float *work,
6591 float *rwork,
6592 ptrdiff_t *info
6593);
6594
6595/* Source: ctrsen.f */
6596#define ctrsen FORTRAN_WRAPPER(ctrsen)
6597extern void ctrsen(
6598 const char *job,
6599 const char *compq,
6600 const ptrdiff_t *select,
6601 const ptrdiff_t *n,
6602 float *t,
6603 const ptrdiff_t *ldt,
6604 float *q,
6605 const ptrdiff_t *ldq,
6606 float *w,
6607 ptrdiff_t *m,
6608 float *s,
6609 float *sep,
6610 float *work,
6611 const ptrdiff_t *lwork,
6612 ptrdiff_t *info
6613);
6614
6615/* Source: ctrsna.f */
6616#define ctrsna FORTRAN_WRAPPER(ctrsna)
6617extern void ctrsna(
6618 const char *job,
6619 const char *howmny,
6620 const ptrdiff_t *select,
6621 const ptrdiff_t *n,
6622 const float *t,
6623 const ptrdiff_t *ldt,
6624 const float *vl,
6625 const ptrdiff_t *ldvl,
6626 const float *vr,
6627 const ptrdiff_t *ldvr,
6628 float *s,
6629 float *sep,
6630 const ptrdiff_t *mm,
6631 ptrdiff_t *m,
6632 float *work,
6633 const ptrdiff_t *ldwork,
6634 float *rwork,
6635 ptrdiff_t *info
6636);
6637
6638/* Source: ctrsyl.f */
6639#define ctrsyl FORTRAN_WRAPPER(ctrsyl)
6640extern void ctrsyl(
6641 const char *trana,
6642 const char *tranb,
6643 const ptrdiff_t *isgn,
6644 const ptrdiff_t *m,
6645 const ptrdiff_t *n,
6646 const float *a,
6647 const ptrdiff_t *lda,
6648 const float *b,
6649 const ptrdiff_t *ldb,
6650 float *c,
6651 const ptrdiff_t *ldc,
6652 float *scale,
6653 ptrdiff_t *info
6654);
6655
6656/* Source: ctrti2.f */
6657#define ctrti2 FORTRAN_WRAPPER(ctrti2)
6658extern void ctrti2(
6659 const char *uplo,
6660 const char *diag,
6661 const ptrdiff_t *n,
6662 float *a,
6663 const ptrdiff_t *lda,
6664 ptrdiff_t *info
6665);
6666
6667/* Source: ctrtri.f */
6668#define ctrtri FORTRAN_WRAPPER(ctrtri)
6669extern void ctrtri(
6670 const char *uplo,
6671 const char *diag,
6672 const ptrdiff_t *n,
6673 float *a,
6674 const ptrdiff_t *lda,
6675 ptrdiff_t *info
6676);
6677
6678/* Source: ctrtrs.f */
6679#define ctrtrs FORTRAN_WRAPPER(ctrtrs)
6680extern void ctrtrs(
6681 const char *uplo,
6682 const char *trans,
6683 const char *diag,
6684 const ptrdiff_t *n,
6685 const ptrdiff_t *nrhs,
6686 const float *a,
6687 const ptrdiff_t *lda,
6688 float *b,
6689 const ptrdiff_t *ldb,
6690 ptrdiff_t *info
6691);
6692
6693/* Source: ctrttf.f */
6694#define ctrttf FORTRAN_WRAPPER(ctrttf)
6695extern void ctrttf(
6696 const char *transr,
6697 const char *uplo,
6698 const ptrdiff_t *n,
6699 const float *a,
6700 const ptrdiff_t *lda,
6701 float *arf,
6702 ptrdiff_t *info
6703);
6704
6705/* Source: ctrttp.f */
6706#define ctrttp FORTRAN_WRAPPER(ctrttp)
6707extern void ctrttp(
6708 const char *uplo,
6709 const ptrdiff_t *n,
6710 const float *a,
6711 const ptrdiff_t *lda,
6712 float *ap,
6713 ptrdiff_t *info
6714);
6715
6716/* Source: ctzrzf.f */
6717#define ctzrzf FORTRAN_WRAPPER(ctzrzf)
6718extern void ctzrzf(
6719 const ptrdiff_t *m,
6720 const ptrdiff_t *n,
6721 float *a,
6722 const ptrdiff_t *lda,
6723 float *tau,
6724 float *work,
6725 const ptrdiff_t *lwork,
6726 ptrdiff_t *info
6727);
6728
6729/* Source: cunbdb.f */
6730#define cunbdb FORTRAN_WRAPPER(cunbdb)
6731extern void cunbdb(
6732 const char *trans,
6733 const char *signs,
6734 const ptrdiff_t *m,
6735 const ptrdiff_t *p,
6736 const ptrdiff_t *q,
6737 float *x11,
6738 const ptrdiff_t *ldx11,
6739 float *x12,
6740 const ptrdiff_t *ldx12,
6741 float *x21,
6742 const ptrdiff_t *ldx21,
6743 float *x22,
6744 const ptrdiff_t *ldx22,
6745 float *theta,
6746 float *phi,
6747 float *taup1,
6748 float *taup2,
6749 float *tauq1,
6750 float *tauq2,
6751 float *work,
6752 const ptrdiff_t *lwork,
6753 ptrdiff_t *info
6754);
6755
6756/* Source: cunbdb1.f */
6757#define cunbdb1 FORTRAN_WRAPPER(cunbdb1)
6758extern void cunbdb1(
6759 const ptrdiff_t *m,
6760 const ptrdiff_t *p,
6761 const ptrdiff_t *q,
6762 float *x11,
6763 const ptrdiff_t *ldx11,
6764 float *x21,
6765 const ptrdiff_t *ldx21,
6766 float *theta,
6767 float *phi,
6768 float *taup1,
6769 float *taup2,
6770 float *tauq1,
6771 float *work,
6772 const ptrdiff_t *lwork,
6773 ptrdiff_t *info
6774);
6775
6776/* Source: cunbdb2.f */
6777#define cunbdb2 FORTRAN_WRAPPER(cunbdb2)
6778extern void cunbdb2(
6779 const ptrdiff_t *m,
6780 const ptrdiff_t *p,
6781 const ptrdiff_t *q,
6782 float *x11,
6783 const ptrdiff_t *ldx11,
6784 float *x21,
6785 const ptrdiff_t *ldx21,
6786 float *theta,
6787 float *phi,
6788 float *taup1,
6789 float *taup2,
6790 float *tauq1,
6791 float *work,
6792 const ptrdiff_t *lwork,
6793 ptrdiff_t *info
6794);
6795
6796/* Source: cunbdb3.f */
6797#define cunbdb3 FORTRAN_WRAPPER(cunbdb3)
6798extern void cunbdb3(
6799 const ptrdiff_t *m,
6800 const ptrdiff_t *p,
6801 const ptrdiff_t *q,
6802 float *x11,
6803 const ptrdiff_t *ldx11,
6804 float *x21,
6805 const ptrdiff_t *ldx21,
6806 float *theta,
6807 float *phi,
6808 float *taup1,
6809 float *taup2,
6810 float *tauq1,
6811 float *work,
6812 const ptrdiff_t *lwork,
6813 ptrdiff_t *info
6814);
6815
6816/* Source: cunbdb4.f */
6817#define cunbdb4 FORTRAN_WRAPPER(cunbdb4)
6818extern void cunbdb4(
6819 const ptrdiff_t *m,
6820 const ptrdiff_t *p,
6821 const ptrdiff_t *q,
6822 float *x11,
6823 const ptrdiff_t *ldx11,
6824 float *x21,
6825 const ptrdiff_t *ldx21,
6826 float *theta,
6827 float *phi,
6828 float *taup1,
6829 float *taup2,
6830 float *tauq1,
6831 float *phantom,
6832 float *work,
6833 const ptrdiff_t *lwork,
6834 ptrdiff_t *info
6835);
6836
6837/* Source: cunbdb5.f */
6838#define cunbdb5 FORTRAN_WRAPPER(cunbdb5)
6839extern void cunbdb5(
6840 const ptrdiff_t *m1,
6841 const ptrdiff_t *m2,
6842 const ptrdiff_t *n,
6843 float *x1,
6844 const ptrdiff_t *incx1,
6845 float *x2,
6846 const ptrdiff_t *incx2,
6847 float *q1,
6848 const ptrdiff_t *ldq1,
6849 float *q2,
6850 const ptrdiff_t *ldq2,
6851 float *work,
6852 const ptrdiff_t *lwork,
6853 ptrdiff_t *info
6854);
6855
6856/* Source: cunbdb6.f */
6857#define cunbdb6 FORTRAN_WRAPPER(cunbdb6)
6858extern void cunbdb6(
6859 const ptrdiff_t *m1,
6860 const ptrdiff_t *m2,
6861 const ptrdiff_t *n,
6862 float *x1,
6863 const ptrdiff_t *incx1,
6864 float *x2,
6865 const ptrdiff_t *incx2,
6866 float *q1,
6867 const ptrdiff_t *ldq1,
6868 float *q2,
6869 const ptrdiff_t *ldq2,
6870 float *work,
6871 const ptrdiff_t *lwork,
6872 ptrdiff_t *info
6873);
6874
6875/* Source: cuncsd.f */
6876#define cuncsd FORTRAN_WRAPPER(cuncsd)
6877extern void cuncsd(
6878 const char *jobu1,
6879 const char *jobu2,
6880 const char *jobv1t,
6881 const char *jobv2t,
6882 const char *trans,
6883 const char *signs,
6884 const ptrdiff_t *m,
6885 const ptrdiff_t *p,
6886 const ptrdiff_t *q,
6887 float *x11,
6888 const ptrdiff_t *ldx11,
6889 float *x12,
6890 const ptrdiff_t *ldx12,
6891 float *x21,
6892 const ptrdiff_t *ldx21,
6893 float *x22,
6894 const ptrdiff_t *ldx22,
6895 float *theta,
6896 float *u1,
6897 const ptrdiff_t *ldu1,
6898 float *u2,
6899 const ptrdiff_t *ldu2,
6900 float *v1t,
6901 const ptrdiff_t *ldv1t,
6902 float *v2t,
6903 const ptrdiff_t *ldv2t,
6904 float *work,
6905 const ptrdiff_t *lwork,
6906 float *rwork,
6907 const ptrdiff_t *lrwork,
6908 ptrdiff_t *iwork,
6909 ptrdiff_t *info
6910);
6911
6912/* Source: cuncsd2by1.f */
6913#define cuncsd2by1 FORTRAN_WRAPPER(cuncsd2by1)
6914extern void cuncsd2by1(
6915 const char *jobu1,
6916 const char *jobu2,
6917 const char *jobv1t,
6918 const ptrdiff_t *m,
6919 const ptrdiff_t *p,
6920 const ptrdiff_t *q,
6921 float *x11,
6922 const ptrdiff_t *ldx11,
6923 float *x21,
6924 const ptrdiff_t *ldx21,
6925 float *theta,
6926 float *u1,
6927 const ptrdiff_t *ldu1,
6928 float *u2,
6929 const ptrdiff_t *ldu2,
6930 float *v1t,
6931 const ptrdiff_t *ldv1t,
6932 float *work,
6933 const ptrdiff_t *lwork,
6934 float *rwork,
6935 const ptrdiff_t *lrwork,
6936 ptrdiff_t *iwork,
6937 ptrdiff_t *info
6938);
6939
6940/* Source: cung2l.f */
6941#define cung2l FORTRAN_WRAPPER(cung2l)
6942extern void cung2l(
6943 const ptrdiff_t *m,
6944 const ptrdiff_t *n,
6945 const ptrdiff_t *k,
6946 float *a,
6947 const ptrdiff_t *lda,
6948 const float *tau,
6949 float *work,
6950 ptrdiff_t *info
6951);
6952
6953/* Source: cung2r.f */
6954#define cung2r FORTRAN_WRAPPER(cung2r)
6955extern void cung2r(
6956 const ptrdiff_t *m,
6957 const ptrdiff_t *n,
6958 const ptrdiff_t *k,
6959 float *a,
6960 const ptrdiff_t *lda,
6961 const float *tau,
6962 float *work,
6963 ptrdiff_t *info
6964);
6965
6966/* Source: cungbr.f */
6967#define cungbr FORTRAN_WRAPPER(cungbr)
6968extern void cungbr(
6969 const char *vect,
6970 const ptrdiff_t *m,
6971 const ptrdiff_t *n,
6972 const ptrdiff_t *k,
6973 float *a,
6974 const ptrdiff_t *lda,
6975 const float *tau,
6976 float *work,
6977 const ptrdiff_t *lwork,
6978 ptrdiff_t *info
6979);
6980
6981/* Source: cunghr.f */
6982#define cunghr FORTRAN_WRAPPER(cunghr)
6983extern void cunghr(
6984 const ptrdiff_t *n,
6985 const ptrdiff_t *ilo,
6986 const ptrdiff_t *ihi,
6987 float *a,
6988 const ptrdiff_t *lda,
6989 const float *tau,
6990 float *work,
6991 const ptrdiff_t *lwork,
6992 ptrdiff_t *info
6993);
6994
6995/* Source: cungl2.f */
6996#define cungl2 FORTRAN_WRAPPER(cungl2)
6997extern void cungl2(
6998 const ptrdiff_t *m,
6999 const ptrdiff_t *n,
7000 const ptrdiff_t *k,
7001 float *a,
7002 const ptrdiff_t *lda,
7003 const float *tau,
7004 float *work,
7005 ptrdiff_t *info
7006);
7007
7008/* Source: cunglq.f */
7009#define cunglq FORTRAN_WRAPPER(cunglq)
7010extern void cunglq(
7011 const ptrdiff_t *m,
7012 const ptrdiff_t *n,
7013 const ptrdiff_t *k,
7014 float *a,
7015 const ptrdiff_t *lda,
7016 const float *tau,
7017 float *work,
7018 const ptrdiff_t *lwork,
7019 ptrdiff_t *info
7020);
7021
7022/* Source: cungql.f */
7023#define cungql FORTRAN_WRAPPER(cungql)
7024extern void cungql(
7025 const ptrdiff_t *m,
7026 const ptrdiff_t *n,
7027 const ptrdiff_t *k,
7028 float *a,
7029 const ptrdiff_t *lda,
7030 const float *tau,
7031 float *work,
7032 const ptrdiff_t *lwork,
7033 ptrdiff_t *info
7034);
7035
7036/* Source: cungqr.f */
7037#define cungqr FORTRAN_WRAPPER(cungqr)
7038extern void cungqr(
7039 const ptrdiff_t *m,
7040 const ptrdiff_t *n,
7041 const ptrdiff_t *k,
7042 float *a,
7043 const ptrdiff_t *lda,
7044 const float *tau,
7045 float *work,
7046 const ptrdiff_t *lwork,
7047 ptrdiff_t *info
7048);
7049
7050/* Source: cungr2.f */
7051#define cungr2 FORTRAN_WRAPPER(cungr2)
7052extern void cungr2(
7053 const ptrdiff_t *m,
7054 const ptrdiff_t *n,
7055 const ptrdiff_t *k,
7056 float *a,
7057 const ptrdiff_t *lda,
7058 const float *tau,
7059 float *work,
7060 ptrdiff_t *info
7061);
7062
7063/* Source: cungrq.f */
7064#define cungrq FORTRAN_WRAPPER(cungrq)
7065extern void cungrq(
7066 const ptrdiff_t *m,
7067 const ptrdiff_t *n,
7068 const ptrdiff_t *k,
7069 float *a,
7070 const ptrdiff_t *lda,
7071 const float *tau,
7072 float *work,
7073 const ptrdiff_t *lwork,
7074 ptrdiff_t *info
7075);
7076
7077/* Source: cungtr.f */
7078#define cungtr FORTRAN_WRAPPER(cungtr)
7079extern void cungtr(
7080 const char *uplo,
7081 const ptrdiff_t *n,
7082 float *a,
7083 const ptrdiff_t *lda,
7084 const float *tau,
7085 float *work,
7086 const ptrdiff_t *lwork,
7087 ptrdiff_t *info
7088);
7089
7090/* Source: cunm22.f */
7091#define cunm22 FORTRAN_WRAPPER(cunm22)
7092extern void cunm22(
7093 const char *side,
7094 const char *trans,
7095 const ptrdiff_t *m,
7096 const ptrdiff_t *n,
7097 const ptrdiff_t *n1,
7098 const ptrdiff_t *n2,
7099 const float *q,
7100 const ptrdiff_t *ldq,
7101 float *c,
7102 const ptrdiff_t *ldc,
7103 float *work,
7104 const ptrdiff_t *lwork,
7105 ptrdiff_t *info
7106);
7107
7108/* Source: cunm2l.f */
7109#define cunm2l FORTRAN_WRAPPER(cunm2l)
7110extern void cunm2l(
7111 const char *side,
7112 const char *trans,
7113 const ptrdiff_t *m,
7114 const ptrdiff_t *n,
7115 const ptrdiff_t *k,
7116 const float *a,
7117 const ptrdiff_t *lda,
7118 const float *tau,
7119 float *c,
7120 const ptrdiff_t *ldc,
7121 float *work,
7122 ptrdiff_t *info
7123);
7124
7125/* Source: cunm2r.f */
7126#define cunm2r FORTRAN_WRAPPER(cunm2r)
7127extern void cunm2r(
7128 const char *side,
7129 const char *trans,
7130 const ptrdiff_t *m,
7131 const ptrdiff_t *n,
7132 const ptrdiff_t *k,
7133 const float *a,
7134 const ptrdiff_t *lda,
7135 const float *tau,
7136 float *c,
7137 const ptrdiff_t *ldc,
7138 float *work,
7139 ptrdiff_t *info
7140);
7141
7142/* Source: cunmbr.f */
7143#define cunmbr FORTRAN_WRAPPER(cunmbr)
7144extern void cunmbr(
7145 const char *vect,
7146 const char *side,
7147 const char *trans,
7148 const ptrdiff_t *m,
7149 const ptrdiff_t *n,
7150 const ptrdiff_t *k,
7151 const float *a,
7152 const ptrdiff_t *lda,
7153 const float *tau,
7154 float *c,
7155 const ptrdiff_t *ldc,
7156 float *work,
7157 const ptrdiff_t *lwork,
7158 ptrdiff_t *info
7159);
7160
7161/* Source: cunmhr.f */
7162#define cunmhr FORTRAN_WRAPPER(cunmhr)
7163extern void cunmhr(
7164 const char *side,
7165 const char *trans,
7166 const ptrdiff_t *m,
7167 const ptrdiff_t *n,
7168 const ptrdiff_t *ilo,
7169 const ptrdiff_t *ihi,
7170 const float *a,
7171 const ptrdiff_t *lda,
7172 const float *tau,
7173 float *c,
7174 const ptrdiff_t *ldc,
7175 float *work,
7176 const ptrdiff_t *lwork,
7177 ptrdiff_t *info
7178);
7179
7180/* Source: cunml2.f */
7181#define cunml2 FORTRAN_WRAPPER(cunml2)
7182extern void cunml2(
7183 const char *side,
7184 const char *trans,
7185 const ptrdiff_t *m,
7186 const ptrdiff_t *n,
7187 const ptrdiff_t *k,
7188 const float *a,
7189 const ptrdiff_t *lda,
7190 const float *tau,
7191 float *c,
7192 const ptrdiff_t *ldc,
7193 float *work,
7194 ptrdiff_t *info
7195);
7196
7197/* Source: cunmlq.f */
7198#define cunmlq FORTRAN_WRAPPER(cunmlq)
7199extern void cunmlq(
7200 const char *side,
7201 const char *trans,
7202 const ptrdiff_t *m,
7203 const ptrdiff_t *n,
7204 const ptrdiff_t *k,
7205 const float *a,
7206 const ptrdiff_t *lda,
7207 const float *tau,
7208 float *c,
7209 const ptrdiff_t *ldc,
7210 float *work,
7211 const ptrdiff_t *lwork,
7212 ptrdiff_t *info
7213);
7214
7215/* Source: cunmql.f */
7216#define cunmql FORTRAN_WRAPPER(cunmql)
7217extern void cunmql(
7218 const char *side,
7219 const char *trans,
7220 const ptrdiff_t *m,
7221 const ptrdiff_t *n,
7222 const ptrdiff_t *k,
7223 const float *a,
7224 const ptrdiff_t *lda,
7225 const float *tau,
7226 float *c,
7227 const ptrdiff_t *ldc,
7228 float *work,
7229 const ptrdiff_t *lwork,
7230 ptrdiff_t *info
7231);
7232
7233/* Source: cunmqr.f */
7234#define cunmqr FORTRAN_WRAPPER(cunmqr)
7235extern void cunmqr(
7236 const char *side,
7237 const char *trans,
7238 const ptrdiff_t *m,
7239 const ptrdiff_t *n,
7240 const ptrdiff_t *k,
7241 const float *a,
7242 const ptrdiff_t *lda,
7243 const float *tau,
7244 float *c,
7245 const ptrdiff_t *ldc,
7246 float *work,
7247 const ptrdiff_t *lwork,
7248 ptrdiff_t *info
7249);
7250
7251/* Source: cunmr2.f */
7252#define cunmr2 FORTRAN_WRAPPER(cunmr2)
7253extern void cunmr2(
7254 const char *side,
7255 const char *trans,
7256 const ptrdiff_t *m,
7257 const ptrdiff_t *n,
7258 const ptrdiff_t *k,
7259 const float *a,
7260 const ptrdiff_t *lda,
7261 const float *tau,
7262 float *c,
7263 const ptrdiff_t *ldc,
7264 float *work,
7265 ptrdiff_t *info
7266);
7267
7268/* Source: cunmr3.f */
7269#define cunmr3 FORTRAN_WRAPPER(cunmr3)
7270extern void cunmr3(
7271 const char *side,
7272 const char *trans,
7273 const ptrdiff_t *m,
7274 const ptrdiff_t *n,
7275 const ptrdiff_t *k,
7276 const ptrdiff_t *l,
7277 const float *a,
7278 const ptrdiff_t *lda,
7279 const float *tau,
7280 float *c,
7281 const ptrdiff_t *ldc,
7282 float *work,
7283 ptrdiff_t *info
7284);
7285
7286/* Source: cunmrq.f */
7287#define cunmrq FORTRAN_WRAPPER(cunmrq)
7288extern void cunmrq(
7289 const char *side,
7290 const char *trans,
7291 const ptrdiff_t *m,
7292 const ptrdiff_t *n,
7293 const ptrdiff_t *k,
7294 const float *a,
7295 const ptrdiff_t *lda,
7296 const float *tau,
7297 float *c,
7298 const ptrdiff_t *ldc,
7299 float *work,
7300 const ptrdiff_t *lwork,
7301 ptrdiff_t *info
7302);
7303
7304/* Source: cunmrz.f */
7305#define cunmrz FORTRAN_WRAPPER(cunmrz)
7306extern void cunmrz(
7307 const char *side,
7308 const char *trans,
7309 const ptrdiff_t *m,
7310 const ptrdiff_t *n,
7311 const ptrdiff_t *k,
7312 const ptrdiff_t *l,
7313 const float *a,
7314 const ptrdiff_t *lda,
7315 const float *tau,
7316 float *c,
7317 const ptrdiff_t *ldc,
7318 float *work,
7319 const ptrdiff_t *lwork,
7320 ptrdiff_t *info
7321);
7322
7323/* Source: cunmtr.f */
7324#define cunmtr FORTRAN_WRAPPER(cunmtr)
7325extern void cunmtr(
7326 const char *side,
7327 const char *uplo,
7328 const char *trans,
7329 const ptrdiff_t *m,
7330 const ptrdiff_t *n,
7331 const float *a,
7332 const ptrdiff_t *lda,
7333 const float *tau,
7334 float *c,
7335 const ptrdiff_t *ldc,
7336 float *work,
7337 const ptrdiff_t *lwork,
7338 ptrdiff_t *info
7339);
7340
7341/* Source: cupgtr.f */
7342#define cupgtr FORTRAN_WRAPPER(cupgtr)
7343extern void cupgtr(
7344 const char *uplo,
7345 const ptrdiff_t *n,
7346 const float *ap,
7347 const float *tau,
7348 float *q,
7349 const ptrdiff_t *ldq,
7350 float *work,
7351 ptrdiff_t *info
7352);
7353
7354/* Source: cupmtr.f */
7355#define cupmtr FORTRAN_WRAPPER(cupmtr)
7356extern void cupmtr(
7357 const char *side,
7358 const char *uplo,
7359 const char *trans,
7360 const ptrdiff_t *m,
7361 const ptrdiff_t *n,
7362 const float *ap,
7363 const float *tau,
7364 float *c,
7365 const ptrdiff_t *ldc,
7366 float *work,
7367 ptrdiff_t *info
7368);
7369
7370/* Source: dbbcsd.f */
7371#define dbbcsd FORTRAN_WRAPPER(dbbcsd)
7372extern void dbbcsd(
7373 const char *jobu1,
7374 const char *jobu2,
7375 const char *jobv1t,
7376 const char *jobv2t,
7377 const char *trans,
7378 const ptrdiff_t *m,
7379 const ptrdiff_t *p,
7380 const ptrdiff_t *q,
7381 double *theta,
7382 double *phi,
7383 double *u1,
7384 const ptrdiff_t *ldu1,
7385 double *u2,
7386 const ptrdiff_t *ldu2,
7387 double *v1t,
7388 const ptrdiff_t *ldv1t,
7389 double *v2t,
7390 const ptrdiff_t *ldv2t,
7391 double *b11d,
7392 double *b11e,
7393 double *b12d,
7394 double *b12e,
7395 double *b21d,
7396 double *b21e,
7397 double *b22d,
7398 double *b22e,
7399 double *work,
7400 const ptrdiff_t *lwork,
7401 ptrdiff_t *info
7402);
7403
7404/* Source: dbdsdc.f */
7405#define dbdsdc FORTRAN_WRAPPER(dbdsdc)
7406extern void dbdsdc(
7407 const char *uplo,
7408 const char *compq,
7409 const ptrdiff_t *n,
7410 double *d,
7411 double *e,
7412 double *u,
7413 const ptrdiff_t *ldu,
7414 double *vt,
7415 const ptrdiff_t *ldvt,
7416 double *q,
7417 ptrdiff_t *iq,
7418 double *work,
7419 ptrdiff_t *iwork,
7420 ptrdiff_t *info
7421);
7422
7423/* Source: dbdsqr.f */
7424#define dbdsqr FORTRAN_WRAPPER(dbdsqr)
7425extern void dbdsqr(
7426 const char *uplo,
7427 const ptrdiff_t *n,
7428 const ptrdiff_t *ncvt,
7429 const ptrdiff_t *nru,
7430 const ptrdiff_t *ncc,
7431 double *d,
7432 double *e,
7433 double *vt,
7434 const ptrdiff_t *ldvt,
7435 double *u,
7436 const ptrdiff_t *ldu,
7437 double *c,
7438 const ptrdiff_t *ldc,
7439 double *work,
7440 ptrdiff_t *info
7441);
7442
7443/* Source: dbdsvdx.f */
7444#define dbdsvdx FORTRAN_WRAPPER(dbdsvdx)
7445extern void dbdsvdx(
7446 const char *uplo,
7447 const char *jobz,
7448 const char *range,
7449 const ptrdiff_t *n,
7450 const double *d,
7451 const double *e,
7452 const double *vl,
7453 const double *vu,
7454 const ptrdiff_t *il,
7455 const ptrdiff_t *iu,
7456 ptrdiff_t *ns,
7457 double *s,
7458 double *z,
7459 const ptrdiff_t *ldz,
7460 double *work,
7461 ptrdiff_t *iwork,
7462 ptrdiff_t *info
7463);
7464
7465/* Source: ddisna.f */
7466#define ddisna FORTRAN_WRAPPER(ddisna)
7467extern void ddisna(
7468 const char *job,
7469 const ptrdiff_t *m,
7470 const ptrdiff_t *n,
7471 const double *d,
7472 double *sep,
7473 ptrdiff_t *info
7474);
7475
7476/* Source: cgegs.f */
7477#define cgegs FORTRAN_WRAPPER(cgegs)
7478extern void cgegs(
7479 const char *jobvsl,
7480 const char *jobvsr,
7481 const ptrdiff_t *n,
7482 float *a,
7483 const ptrdiff_t *lda,
7484 float *b,
7485 const ptrdiff_t *ldb,
7486 float *alpha,
7487 float *beta,
7488 float *vsl,
7489 const ptrdiff_t *ldvsl,
7490 float *vsr,
7491 const ptrdiff_t *ldvsr,
7492 float *work,
7493 const ptrdiff_t *lwork,
7494 float *rwork,
7495 ptrdiff_t *info
7496);
7497
7498/* Source: cgegv.f */
7499#define cgegv FORTRAN_WRAPPER(cgegv)
7500extern void cgegv(
7501 const char *jobvl,
7502 const char *jobvr,
7503 const ptrdiff_t *n,
7504 float *a,
7505 const ptrdiff_t *lda,
7506 float *b,
7507 const ptrdiff_t *ldb,
7508 float *alpha,
7509 float *beta,
7510 float *vl,
7511 const ptrdiff_t *ldvl,
7512 float *vr,
7513 const ptrdiff_t *ldvr,
7514 float *work,
7515 const ptrdiff_t *lwork,
7516 float *rwork,
7517 ptrdiff_t *info
7518);
7519
7520/* Source: cgelsx.f */
7521#define cgelsx FORTRAN_WRAPPER(cgelsx)
7522extern void cgelsx(
7523 const ptrdiff_t *m,
7524 const ptrdiff_t *n,
7525 const ptrdiff_t *nrhs,
7526 float *a,
7527 const ptrdiff_t *lda,
7528 float *b,
7529 const ptrdiff_t *ldb,
7530 ptrdiff_t *jpvt,
7531 const float *rcond,
7532 ptrdiff_t *rank,
7533 float *work,
7534 float *rwork,
7535 ptrdiff_t *info
7536);
7537
7538/* Source: cgeqpf.f */
7539#define cgeqpf FORTRAN_WRAPPER(cgeqpf)
7540extern void cgeqpf(
7541 const ptrdiff_t *m,
7542 const ptrdiff_t *n,
7543 float *a,
7544 const ptrdiff_t *lda,
7545 ptrdiff_t *jpvt,
7546 float *tau,
7547 float *work,
7548 float *rwork,
7549 ptrdiff_t *info
7550);
7551
7552/* Source: cggsvd.f */
7553#define cggsvd FORTRAN_WRAPPER(cggsvd)
7554extern void cggsvd(
7555 const char *jobu,
7556 const char *jobv,
7557 const char *jobq,
7558 const ptrdiff_t *m,
7559 const ptrdiff_t *n,
7560 const ptrdiff_t *p,
7561 ptrdiff_t *k,
7562 ptrdiff_t *l,
7563 float *a,
7564 const ptrdiff_t *lda,
7565 float *b,
7566 const ptrdiff_t *ldb,
7567 float *alpha,
7568 float *beta,
7569 float *u,
7570 const ptrdiff_t *ldu,
7571 float *v,
7572 const ptrdiff_t *ldv,
7573 float *q,
7574 const ptrdiff_t *ldq,
7575 float *work,
7576 float *rwork,
7577 ptrdiff_t *iwork,
7578 ptrdiff_t *info
7579);
7580
7581/* Source: cggsvp.f */
7582#define cggsvp FORTRAN_WRAPPER(cggsvp)
7583extern void cggsvp(
7584 const char *jobu,
7585 const char *jobv,
7586 const char *jobq,
7587 const ptrdiff_t *m,
7588 const ptrdiff_t *p,
7589 const ptrdiff_t *n,
7590 float *a,
7591 const ptrdiff_t *lda,
7592 float *b,
7593 const ptrdiff_t *ldb,
7594 const float *tola,
7595 const float *tolb,
7596 ptrdiff_t *k,
7597 ptrdiff_t *l,
7598 float *u,
7599 const ptrdiff_t *ldu,
7600 float *v,
7601 const ptrdiff_t *ldv,
7602 float *q,
7603 const ptrdiff_t *ldq,
7604 ptrdiff_t *iwork,
7605 float *rwork,
7606 float *tau,
7607 float *work,
7608 ptrdiff_t *info
7609);
7610
7611/* Source: clahrd.f */
7612#define clahrd FORTRAN_WRAPPER(clahrd)
7613extern void clahrd(
7614 const ptrdiff_t *n,
7615 const ptrdiff_t *k,
7616 const ptrdiff_t *nb,
7617 float *a,
7618 const ptrdiff_t *lda,
7619 float *tau,
7620 float *t,
7621 const ptrdiff_t *ldt,
7622 float *y,
7623 const ptrdiff_t *ldy
7624);
7625
7626/* Source: clatzm.f */
7627#define clatzm FORTRAN_WRAPPER(clatzm)
7628extern void clatzm(
7629 const char *side,
7630 const ptrdiff_t *m,
7631 const ptrdiff_t *n,
7632 const float *v,
7633 const ptrdiff_t *incv,
7634 const float *tau,
7635 float *c1,
7636 float *c2,
7637 const ptrdiff_t *ldc,
7638 float *work
7639);
7640
7641/* Source: ctzrqf.f */
7642#define ctzrqf FORTRAN_WRAPPER(ctzrqf)
7643extern void ctzrqf(
7644 const ptrdiff_t *m,
7645 const ptrdiff_t *n,
7646 float *a,
7647 const ptrdiff_t *lda,
7648 float *tau,
7649 ptrdiff_t *info
7650);
7651
7652/* Source: dgegs.f */
7653#define dgegs FORTRAN_WRAPPER(dgegs)
7654extern void dgegs(
7655 const char *jobvsl,
7656 const char *jobvsr,
7657 const ptrdiff_t *n,
7658 double *a,
7659 const ptrdiff_t *lda,
7660 double *b,
7661 const ptrdiff_t *ldb,
7662 double *alphar,
7663 double *alphai,
7664 double *beta,
7665 double *vsl,
7666 const ptrdiff_t *ldvsl,
7667 double *vsr,
7668 const ptrdiff_t *ldvsr,
7669 double *work,
7670 const ptrdiff_t *lwork,
7671 ptrdiff_t *info
7672);
7673
7674/* Source: dgegv.f */
7675#define dgegv FORTRAN_WRAPPER(dgegv)
7676extern void dgegv(
7677 const char *jobvl,
7678 const char *jobvr,
7679 const ptrdiff_t *n,
7680 double *a,
7681 const ptrdiff_t *lda,
7682 double *b,
7683 const ptrdiff_t *ldb,
7684 double *alphar,
7685 double *alphai,
7686 double *beta,
7687 double *vl,
7688 const ptrdiff_t *ldvl,
7689 double *vr,
7690 const ptrdiff_t *ldvr,
7691 double *work,
7692 const ptrdiff_t *lwork,
7693 ptrdiff_t *info
7694);
7695
7696/* Source: dgelsx.f */
7697#define dgelsx FORTRAN_WRAPPER(dgelsx)
7698extern void dgelsx(
7699 const ptrdiff_t *m,
7700 const ptrdiff_t *n,
7701 const ptrdiff_t *nrhs,
7702 double *a,
7703 const ptrdiff_t *lda,
7704 double *b,
7705 const ptrdiff_t *ldb,
7706 ptrdiff_t *jpvt,
7707 const double *rcond,
7708 ptrdiff_t *rank,
7709 double *work,
7710 ptrdiff_t *info
7711);
7712
7713/* Source: dgeqpf.f */
7714#define dgeqpf FORTRAN_WRAPPER(dgeqpf)
7715extern void dgeqpf(
7716 const ptrdiff_t *m,
7717 const ptrdiff_t *n,
7718 double *a,
7719 const ptrdiff_t *lda,
7720 ptrdiff_t *jpvt,
7721 double *tau,
7722 double *work,
7723 ptrdiff_t *info
7724);
7725
7726/* Source: dggsvd.f */
7727#define dggsvd FORTRAN_WRAPPER(dggsvd)
7728extern void dggsvd(
7729 const char *jobu,
7730 const char *jobv,
7731 const char *jobq,
7732 const ptrdiff_t *m,
7733 const ptrdiff_t *n,
7734 const ptrdiff_t *p,
7735 ptrdiff_t *k,
7736 ptrdiff_t *l,
7737 double *a,
7738 const ptrdiff_t *lda,
7739 double *b,
7740 const ptrdiff_t *ldb,
7741 double *alpha,
7742 double *beta,
7743 double *u,
7744 const ptrdiff_t *ldu,
7745 double *v,
7746 const ptrdiff_t *ldv,
7747 double *q,
7748 const ptrdiff_t *ldq,
7749 double *work,
7750 ptrdiff_t *iwork,
7751 ptrdiff_t *info
7752);
7753
7754/* Source: dggsvp.f */
7755#define dggsvp FORTRAN_WRAPPER(dggsvp)
7756extern void dggsvp(
7757 const char *jobu,
7758 const char *jobv,
7759 const char *jobq,
7760 const ptrdiff_t *m,
7761 const ptrdiff_t *p,
7762 const ptrdiff_t *n,
7763 double *a,
7764 const ptrdiff_t *lda,
7765 double *b,
7766 const ptrdiff_t *ldb,
7767 const double *tola,
7768 const double *tolb,
7769 ptrdiff_t *k,
7770 ptrdiff_t *l,
7771 double *u,
7772 const ptrdiff_t *ldu,
7773 double *v,
7774 const ptrdiff_t *ldv,
7775 double *q,
7776 const ptrdiff_t *ldq,
7777 ptrdiff_t *iwork,
7778 double *tau,
7779 double *work,
7780 ptrdiff_t *info
7781);
7782
7783/* Source: dlahrd.f */
7784#define dlahrd FORTRAN_WRAPPER(dlahrd)
7785extern void dlahrd(
7786 const ptrdiff_t *n,
7787 const ptrdiff_t *k,
7788 const ptrdiff_t *nb,
7789 double *a,
7790 const ptrdiff_t *lda,
7791 double *tau,
7792 double *t,
7793 const ptrdiff_t *ldt,
7794 double *y,
7795 const ptrdiff_t *ldy
7796);
7797
7798/* Source: dlatzm.f */
7799#define dlatzm FORTRAN_WRAPPER(dlatzm)
7800extern void dlatzm(
7801 const char *side,
7802 const ptrdiff_t *m,
7803 const ptrdiff_t *n,
7804 const double *v,
7805 const ptrdiff_t *incv,
7806 const double *tau,
7807 double *c1,
7808 double *c2,
7809 const ptrdiff_t *ldc,
7810 double *work
7811);
7812
7813/* Source: dtzrqf.f */
7814#define dtzrqf FORTRAN_WRAPPER(dtzrqf)
7815extern void dtzrqf(
7816 const ptrdiff_t *m,
7817 const ptrdiff_t *n,
7818 double *a,
7819 const ptrdiff_t *lda,
7820 double *tau,
7821 ptrdiff_t *info
7822);
7823
7824/* Source: sgegs.f */
7825#define sgegs FORTRAN_WRAPPER(sgegs)
7826extern void sgegs(
7827 const char *jobvsl,
7828 const char *jobvsr,
7829 const ptrdiff_t *n,
7830 float *a,
7831 const ptrdiff_t *lda,
7832 float *b,
7833 const ptrdiff_t *ldb,
7834 float *alphar,
7835 float *alphai,
7836 float *beta,
7837 float *vsl,
7838 const ptrdiff_t *ldvsl,
7839 float *vsr,
7840 const ptrdiff_t *ldvsr,
7841 float *work,
7842 const ptrdiff_t *lwork,
7843 ptrdiff_t *info
7844);
7845
7846/* Source: sgegv.f */
7847#define sgegv FORTRAN_WRAPPER(sgegv)
7848extern void sgegv(
7849 const char *jobvl,
7850 const char *jobvr,
7851 const ptrdiff_t *n,
7852 float *a,
7853 const ptrdiff_t *lda,
7854 float *b,
7855 const ptrdiff_t *ldb,
7856 float *alphar,
7857 float *alphai,
7858 float *beta,
7859 float *vl,
7860 const ptrdiff_t *ldvl,
7861 float *vr,
7862 const ptrdiff_t *ldvr,
7863 float *work,
7864 const ptrdiff_t *lwork,
7865 ptrdiff_t *info
7866);
7867
7868/* Source: sgelsx.f */
7869#define sgelsx FORTRAN_WRAPPER(sgelsx)
7870extern void sgelsx(
7871 const ptrdiff_t *m,
7872 const ptrdiff_t *n,
7873 const ptrdiff_t *nrhs,
7874 float *a,
7875 const ptrdiff_t *lda,
7876 float *b,
7877 const ptrdiff_t *ldb,
7878 ptrdiff_t *jpvt,
7879 const float *rcond,
7880 ptrdiff_t *rank,
7881 float *work,
7882 ptrdiff_t *info
7883);
7884
7885/* Source: sgeqpf.f */
7886#define sgeqpf FORTRAN_WRAPPER(sgeqpf)
7887extern void sgeqpf(
7888 const ptrdiff_t *m,
7889 const ptrdiff_t *n,
7890 float *a,
7891 const ptrdiff_t *lda,
7892 ptrdiff_t *jpvt,
7893 float *tau,
7894 float *work,
7895 ptrdiff_t *info
7896);
7897
7898/* Source: sggsvd.f */
7899#define sggsvd FORTRAN_WRAPPER(sggsvd)
7900extern void sggsvd(
7901 const char *jobu,
7902 const char *jobv,
7903 const char *jobq,
7904 const ptrdiff_t *m,
7905 const ptrdiff_t *n,
7906 const ptrdiff_t *p,
7907 ptrdiff_t *k,
7908 ptrdiff_t *l,
7909 float *a,
7910 const ptrdiff_t *lda,
7911 float *b,
7912 const ptrdiff_t *ldb,
7913 float *alpha,
7914 float *beta,
7915 float *u,
7916 const ptrdiff_t *ldu,
7917 float *v,
7918 const ptrdiff_t *ldv,
7919 float *q,
7920 const ptrdiff_t *ldq,
7921 float *work,
7922 ptrdiff_t *iwork,
7923 ptrdiff_t *info
7924);
7925
7926/* Source: sggsvp.f */
7927#define sggsvp FORTRAN_WRAPPER(sggsvp)
7928extern void sggsvp(
7929 const char *jobu,
7930 const char *jobv,
7931 const char *jobq,
7932 const ptrdiff_t *m,
7933 const ptrdiff_t *p,
7934 const ptrdiff_t *n,
7935 float *a,
7936 const ptrdiff_t *lda,
7937 float *b,
7938 const ptrdiff_t *ldb,
7939 const float *tola,
7940 const float *tolb,
7941 ptrdiff_t *k,
7942 ptrdiff_t *l,
7943 float *u,
7944 const ptrdiff_t *ldu,
7945 float *v,
7946 const ptrdiff_t *ldv,
7947 float *q,
7948 const ptrdiff_t *ldq,
7949 ptrdiff_t *iwork,
7950 float *tau,
7951 float *work,
7952 ptrdiff_t *info
7953);
7954
7955/* Source: slahrd.f */
7956#define slahrd FORTRAN_WRAPPER(slahrd)
7957extern void slahrd(
7958 const ptrdiff_t *n,
7959 const ptrdiff_t *k,
7960 const ptrdiff_t *nb,
7961 float *a,
7962 const ptrdiff_t *lda,
7963 float *tau,
7964 float *t,
7965 const ptrdiff_t *ldt,
7966 float *y,
7967 const ptrdiff_t *ldy
7968);
7969
7970/* Source: slatzm.f */
7971#define slatzm FORTRAN_WRAPPER(slatzm)
7972extern void slatzm(
7973 const char *side,
7974 const ptrdiff_t *m,
7975 const ptrdiff_t *n,
7976 const float *v,
7977 const ptrdiff_t *incv,
7978 const float *tau,
7979 float *c1,
7980 float *c2,
7981 const ptrdiff_t *ldc,
7982 float *work
7983);
7984
7985/* Source: stzrqf.f */
7986#define stzrqf FORTRAN_WRAPPER(stzrqf)
7987extern void stzrqf(
7988 const ptrdiff_t *m,
7989 const ptrdiff_t *n,
7990 float *a,
7991 const ptrdiff_t *lda,
7992 float *tau,
7993 ptrdiff_t *info
7994);
7995
7996/* Source: zgegs.f */
7997#define zgegs FORTRAN_WRAPPER(zgegs)
7998extern void zgegs(
7999 const char *jobvsl,
8000 const char *jobvsr,
8001 const ptrdiff_t *n,
8002 double *a,
8003 const ptrdiff_t *lda,
8004 double *b,
8005 const ptrdiff_t *ldb,
8006 double *alpha,
8007 double *beta,
8008 double *vsl,
8009 const ptrdiff_t *ldvsl,
8010 double *vsr,
8011 const ptrdiff_t *ldvsr,
8012 double *work,
8013 const ptrdiff_t *lwork,
8014 double *rwork,
8015 ptrdiff_t *info
8016);
8017
8018/* Source: zgegv.f */
8019#define zgegv FORTRAN_WRAPPER(zgegv)
8020extern void zgegv(
8021 const char *jobvl,
8022 const char *jobvr,
8023 const ptrdiff_t *n,
8024 double *a,
8025 const ptrdiff_t *lda,
8026 double *b,
8027 const ptrdiff_t *ldb,
8028 double *alpha,
8029 double *beta,
8030 double *vl,
8031 const ptrdiff_t *ldvl,
8032 double *vr,
8033 const ptrdiff_t *ldvr,
8034 double *work,
8035 const ptrdiff_t *lwork,
8036 double *rwork,
8037 ptrdiff_t *info
8038);
8039
8040/* Source: zgelsx.f */
8041#define zgelsx FORTRAN_WRAPPER(zgelsx)
8042extern void zgelsx(
8043 const ptrdiff_t *m,
8044 const ptrdiff_t *n,
8045 const ptrdiff_t *nrhs,
8046 double *a,
8047 const ptrdiff_t *lda,
8048 double *b,
8049 const ptrdiff_t *ldb,
8050 ptrdiff_t *jpvt,
8051 const double *rcond,
8052 ptrdiff_t *rank,
8053 double *work,
8054 double *rwork,
8055 ptrdiff_t *info
8056);
8057
8058/* Source: zgeqpf.f */
8059#define zgeqpf FORTRAN_WRAPPER(zgeqpf)
8060extern void zgeqpf(
8061 const ptrdiff_t *m,
8062 const ptrdiff_t *n,
8063 double *a,
8064 const ptrdiff_t *lda,
8065 ptrdiff_t *jpvt,
8066 double *tau,
8067 double *work,
8068 double *rwork,
8069 ptrdiff_t *info
8070);
8071
8072/* Source: zggsvd.f */
8073#define zggsvd FORTRAN_WRAPPER(zggsvd)
8074extern void zggsvd(
8075 const char *jobu,
8076 const char *jobv,
8077 const char *jobq,
8078 const ptrdiff_t *m,
8079 const ptrdiff_t *n,
8080 const ptrdiff_t *p,
8081 ptrdiff_t *k,
8082 ptrdiff_t *l,
8083 double *a,
8084 const ptrdiff_t *lda,
8085 double *b,
8086 const ptrdiff_t *ldb,
8087 double *alpha,
8088 double *beta,
8089 double *u,
8090 const ptrdiff_t *ldu,
8091 double *v,
8092 const ptrdiff_t *ldv,
8093 double *q,
8094 const ptrdiff_t *ldq,
8095 double *work,
8096 double *rwork,
8097 ptrdiff_t *iwork,
8098 ptrdiff_t *info
8099);
8100
8101/* Source: zggsvp.f */
8102#define zggsvp FORTRAN_WRAPPER(zggsvp)
8103extern void zggsvp(
8104 const char *jobu,
8105 const char *jobv,
8106 const char *jobq,
8107 const ptrdiff_t *m,
8108 const ptrdiff_t *p,
8109 const ptrdiff_t *n,
8110 double *a,
8111 const ptrdiff_t *lda,
8112 double *b,
8113 const ptrdiff_t *ldb,
8114 const double *tola,
8115 const double *tolb,
8116 ptrdiff_t *k,
8117 ptrdiff_t *l,
8118 double *u,
8119 const ptrdiff_t *ldu,
8120 double *v,
8121 const ptrdiff_t *ldv,
8122 double *q,
8123 const ptrdiff_t *ldq,
8124 ptrdiff_t *iwork,
8125 double *rwork,
8126 double *tau,
8127 double *work,
8128 ptrdiff_t *info
8129);
8130
8131/* Source: zlahrd.f */
8132#define zlahrd FORTRAN_WRAPPER(zlahrd)
8133extern void zlahrd(
8134 const ptrdiff_t *n,
8135 const ptrdiff_t *k,
8136 const ptrdiff_t *nb,
8137 double *a,
8138 const ptrdiff_t *lda,
8139 double *tau,
8140 double *t,
8141 const ptrdiff_t *ldt,
8142 double *y,
8143 const ptrdiff_t *ldy
8144);
8145
8146/* Source: zlatzm.f */
8147#define zlatzm FORTRAN_WRAPPER(zlatzm)
8148extern void zlatzm(
8149 const char *side,
8150 const ptrdiff_t *m,
8151 const ptrdiff_t *n,
8152 const double *v,
8153 const ptrdiff_t *incv,
8154 const double *tau,
8155 double *c1,
8156 double *c2,
8157 const ptrdiff_t *ldc,
8158 double *work
8159);
8160
8161/* Source: ztzrqf.f */
8162#define ztzrqf FORTRAN_WRAPPER(ztzrqf)
8163extern void ztzrqf(
8164 const ptrdiff_t *m,
8165 const ptrdiff_t *n,
8166 double *a,
8167 const ptrdiff_t *lda,
8168 double *tau,
8169 ptrdiff_t *info
8170);
8171
8172/* Source: dgbbrd.f */
8173#define dgbbrd FORTRAN_WRAPPER(dgbbrd)
8174extern void dgbbrd(
8175 const char *vect,
8176 const ptrdiff_t *m,
8177 const ptrdiff_t *n,
8178 const ptrdiff_t *ncc,
8179 const ptrdiff_t *kl,
8180 const ptrdiff_t *ku,
8181 double *ab,
8182 const ptrdiff_t *ldab,
8183 double *d,
8184 double *e,
8185 double *q,
8186 const ptrdiff_t *ldq,
8187 double *pt,
8188 const ptrdiff_t *ldpt,
8189 double *c,
8190 const ptrdiff_t *ldc,
8191 double *work,
8192 ptrdiff_t *info
8193);
8194
8195/* Source: dgbcon.f */
8196#define dgbcon FORTRAN_WRAPPER(dgbcon)
8197extern void dgbcon(
8198 const char *norm,
8199 const ptrdiff_t *n,
8200 const ptrdiff_t *kl,
8201 const ptrdiff_t *ku,
8202 const double *ab,
8203 const ptrdiff_t *ldab,
8204 const ptrdiff_t *ipiv,
8205 const double *anorm,
8206 double *rcond,
8207 double *work,
8208 ptrdiff_t *iwork,
8209 ptrdiff_t *info
8210);
8211
8212/* Source: dgbequ.f */
8213#define dgbequ FORTRAN_WRAPPER(dgbequ)
8214extern void dgbequ(
8215 const ptrdiff_t *m,
8216 const ptrdiff_t *n,
8217 const ptrdiff_t *kl,
8218 const ptrdiff_t *ku,
8219 const double *ab,
8220 const ptrdiff_t *ldab,
8221 double *r,
8222 double *c,
8223 double *rowcnd,
8224 double *colcnd,
8225 double *amax,
8226 ptrdiff_t *info
8227);
8228
8229/* Source: dgbequb.f */
8230#define dgbequb FORTRAN_WRAPPER(dgbequb)
8231extern void dgbequb(
8232 const ptrdiff_t *m,
8233 const ptrdiff_t *n,
8234 const ptrdiff_t *kl,
8235 const ptrdiff_t *ku,
8236 const double *ab,
8237 const ptrdiff_t *ldab,
8238 double *r,
8239 double *c,
8240 double *rowcnd,
8241 double *colcnd,
8242 double *amax,
8243 ptrdiff_t *info
8244);
8245
8246/* Source: dgbrfs.f */
8247#define dgbrfs FORTRAN_WRAPPER(dgbrfs)
8248extern void dgbrfs(
8249 const char *trans,
8250 const ptrdiff_t *n,
8251 const ptrdiff_t *kl,
8252 const ptrdiff_t *ku,
8253 const ptrdiff_t *nrhs,
8254 const double *ab,
8255 const ptrdiff_t *ldab,
8256 const double *afb,
8257 const ptrdiff_t *ldafb,
8258 const ptrdiff_t *ipiv,
8259 const double *b,
8260 const ptrdiff_t *ldb,
8261 double *x,
8262 const ptrdiff_t *ldx,
8263 double *ferr,
8264 double *berr,
8265 double *work,
8266 ptrdiff_t *iwork,
8267 ptrdiff_t *info
8268);
8269
8270/* Source: dgbsv.f */
8271#define dgbsv FORTRAN_WRAPPER(dgbsv)
8272extern void dgbsv(
8273 const ptrdiff_t *n,
8274 const ptrdiff_t *kl,
8275 const ptrdiff_t *ku,
8276 const ptrdiff_t *nrhs,
8277 double *ab,
8278 const ptrdiff_t *ldab,
8279 ptrdiff_t *ipiv,
8280 double *b,
8281 const ptrdiff_t *ldb,
8282 ptrdiff_t *info
8283);
8284
8285/* Source: dgbsvx.f */
8286#define dgbsvx FORTRAN_WRAPPER(dgbsvx)
8287extern void dgbsvx(
8288 const char *fact,
8289 const char *trans,
8290 const ptrdiff_t *n,
8291 const ptrdiff_t *kl,
8292 const ptrdiff_t *ku,
8293 const ptrdiff_t *nrhs,
8294 double *ab,
8295 const ptrdiff_t *ldab,
8296 double *afb,
8297 const ptrdiff_t *ldafb,
8298 ptrdiff_t *ipiv,
8299 char *equed,
8300 double *r,
8301 double *c,
8302 double *b,
8303 const ptrdiff_t *ldb,
8304 double *x,
8305 const ptrdiff_t *ldx,
8306 double *rcond,
8307 double *ferr,
8308 double *berr,
8309 double *work,
8310 ptrdiff_t *iwork,
8311 ptrdiff_t *info
8312);
8313
8314/* Source: dgbtf2.f */
8315#define dgbtf2 FORTRAN_WRAPPER(dgbtf2)
8316extern void dgbtf2(
8317 const ptrdiff_t *m,
8318 const ptrdiff_t *n,
8319 const ptrdiff_t *kl,
8320 const ptrdiff_t *ku,
8321 double *ab,
8322 const ptrdiff_t *ldab,
8323 ptrdiff_t *ipiv,
8324 ptrdiff_t *info
8325);
8326
8327/* Source: dgbtrf.f */
8328#define dgbtrf FORTRAN_WRAPPER(dgbtrf)
8329extern void dgbtrf(
8330 const ptrdiff_t *m,
8331 const ptrdiff_t *n,
8332 const ptrdiff_t *kl,
8333 const ptrdiff_t *ku,
8334 double *ab,
8335 const ptrdiff_t *ldab,
8336 ptrdiff_t *ipiv,
8337 ptrdiff_t *info
8338);
8339
8340/* Source: dgbtrs.f */
8341#define dgbtrs FORTRAN_WRAPPER(dgbtrs)
8342extern void dgbtrs(
8343 const char *trans,
8344 const ptrdiff_t *n,
8345 const ptrdiff_t *kl,
8346 const ptrdiff_t *ku,
8347 const ptrdiff_t *nrhs,
8348 const double *ab,
8349 const ptrdiff_t *ldab,
8350 const ptrdiff_t *ipiv,
8351 double *b,
8352 const ptrdiff_t *ldb,
8353 ptrdiff_t *info
8354);
8355
8356/* Source: dgebak.f */
8357#define dgebak FORTRAN_WRAPPER(dgebak)
8358extern void dgebak(
8359 const char *job,
8360 const char *side,
8361 const ptrdiff_t *n,
8362 const ptrdiff_t *ilo,
8363 const ptrdiff_t *ihi,
8364 const double *scale,
8365 const ptrdiff_t *m,
8366 double *v,
8367 const ptrdiff_t *ldv,
8368 ptrdiff_t *info
8369);
8370
8371/* Source: dgebal.f */
8372#define dgebal FORTRAN_WRAPPER(dgebal)
8373extern void dgebal(
8374 const char *job,
8375 const ptrdiff_t *n,
8376 double *a,
8377 const ptrdiff_t *lda,
8378 ptrdiff_t *ilo,
8379 ptrdiff_t *ihi,
8380 double *scale,
8381 ptrdiff_t *info
8382);
8383
8384/* Source: dgebd2.f */
8385#define dgebd2 FORTRAN_WRAPPER(dgebd2)
8386extern void dgebd2(
8387 const ptrdiff_t *m,
8388 const ptrdiff_t *n,
8389 double *a,
8390 const ptrdiff_t *lda,
8391 double *d,
8392 double *e,
8393 double *tauq,
8394 double *taup,
8395 double *work,
8396 ptrdiff_t *info
8397);
8398
8399/* Source: dgebrd.f */
8400#define dgebrd FORTRAN_WRAPPER(dgebrd)
8401extern void dgebrd(
8402 const ptrdiff_t *m,
8403 const ptrdiff_t *n,
8404 double *a,
8405 const ptrdiff_t *lda,
8406 double *d,
8407 double *e,
8408 double *tauq,
8409 double *taup,
8410 double *work,
8411 const ptrdiff_t *lwork,
8412 ptrdiff_t *info
8413);
8414
8415/* Source: dgecon.f */
8416#define dgecon FORTRAN_WRAPPER(dgecon)
8417extern void dgecon(
8418 const char *norm,
8419 const ptrdiff_t *n,
8420 const double *a,
8421 const ptrdiff_t *lda,
8422 const double *anorm,
8423 double *rcond,
8424 double *work,
8425 ptrdiff_t *iwork,
8426 ptrdiff_t *info
8427);
8428
8429/* Source: dgeequ.f */
8430#define dgeequ FORTRAN_WRAPPER(dgeequ)
8431extern void dgeequ(
8432 const ptrdiff_t *m,
8433 const ptrdiff_t *n,
8434 const double *a,
8435 const ptrdiff_t *lda,
8436 double *r,
8437 double *c,
8438 double *rowcnd,
8439 double *colcnd,
8440 double *amax,
8441 ptrdiff_t *info
8442);
8443
8444/* Source: dgeequb.f */
8445#define dgeequb FORTRAN_WRAPPER(dgeequb)
8446extern void dgeequb(
8447 const ptrdiff_t *m,
8448 const ptrdiff_t *n,
8449 const double *a,
8450 const ptrdiff_t *lda,
8451 double *r,
8452 double *c,
8453 double *rowcnd,
8454 double *colcnd,
8455 double *amax,
8456 ptrdiff_t *info
8457);
8458
8459/* Source: dgees.f */
8460#define dgees FORTRAN_WRAPPER(dgees)
8461extern void dgees(
8462 const char *jobvs,
8463 const char *sort,
8464 ptrdiff_t (*select)(),
8465 const ptrdiff_t *n,
8466 double *a,
8467 const ptrdiff_t *lda,
8468 ptrdiff_t *sdim,
8469 double *wr,
8470 double *wi,
8471 double *vs,
8472 const ptrdiff_t *ldvs,
8473 double *work,
8474 const ptrdiff_t *lwork,
8475 ptrdiff_t *bwork,
8476 ptrdiff_t *info
8477);
8478
8479/* Source: dgeesx.f */
8480#define dgeesx FORTRAN_WRAPPER(dgeesx)
8481extern void dgeesx(
8482 const char *jobvs,
8483 const char *sort,
8484 ptrdiff_t (*select)(),
8485 const char *sense,
8486 const ptrdiff_t *n,
8487 double *a,
8488 const ptrdiff_t *lda,
8489 ptrdiff_t *sdim,
8490 double *wr,
8491 double *wi,
8492 double *vs,
8493 const ptrdiff_t *ldvs,
8494 double *rconde,
8495 double *rcondv,
8496 double *work,
8497 const ptrdiff_t *lwork,
8498 ptrdiff_t *iwork,
8499 const ptrdiff_t *liwork,
8500 ptrdiff_t *bwork,
8501 ptrdiff_t *info
8502);
8503
8504/* Source: dgeev.f */
8505#define dgeev FORTRAN_WRAPPER(dgeev)
8506extern void dgeev(
8507 const char *jobvl,
8508 const char *jobvr,
8509 const ptrdiff_t *n,
8510 double *a,
8511 const ptrdiff_t *lda,
8512 double *wr,
8513 double *wi,
8514 double *vl,
8515 const ptrdiff_t *ldvl,
8516 double *vr,
8517 const ptrdiff_t *ldvr,
8518 double *work,
8519 const ptrdiff_t *lwork,
8520 ptrdiff_t *info
8521);
8522
8523/* Source: dgeevx.f */
8524#define dgeevx FORTRAN_WRAPPER(dgeevx)
8525extern void dgeevx(
8526 const char *balanc,
8527 const char *jobvl,
8528 const char *jobvr,
8529 const char *sense,
8530 const ptrdiff_t *n,
8531 double *a,
8532 const ptrdiff_t *lda,
8533 double *wr,
8534 double *wi,
8535 double *vl,
8536 const ptrdiff_t *ldvl,
8537 double *vr,
8538 const ptrdiff_t *ldvr,
8539 ptrdiff_t *ilo,
8540 ptrdiff_t *ihi,
8541 double *scale,
8542 double *abnrm,
8543 double *rconde,
8544 double *rcondv,
8545 double *work,
8546 const ptrdiff_t *lwork,
8547 ptrdiff_t *iwork,
8548 ptrdiff_t *info
8549);
8550
8551/* Source: dgehd2.f */
8552#define dgehd2 FORTRAN_WRAPPER(dgehd2)
8553extern void dgehd2(
8554 const ptrdiff_t *n,
8555 const ptrdiff_t *ilo,
8556 const ptrdiff_t *ihi,
8557 double *a,
8558 const ptrdiff_t *lda,
8559 double *tau,
8560 double *work,
8561 ptrdiff_t *info
8562);
8563
8564/* Source: dgehrd.f */
8565#define dgehrd FORTRAN_WRAPPER(dgehrd)
8566extern void dgehrd(
8567 const ptrdiff_t *n,
8568 const ptrdiff_t *ilo,
8569 const ptrdiff_t *ihi,
8570 double *a,
8571 const ptrdiff_t *lda,
8572 double *tau,
8573 double *work,
8574 const ptrdiff_t *lwork,
8575 ptrdiff_t *info
8576);
8577
8578/* Source: dgejsv.f */
8579#define dgejsv FORTRAN_WRAPPER(dgejsv)
8580extern void dgejsv(
8581 const char *joba,
8582 const char *jobu,
8583 const char *jobv,
8584 const char *jobr,
8585 const char *jobt,
8586 const char *jobp,
8587 const ptrdiff_t *m,
8588 const ptrdiff_t *n,
8589 double *a,
8590 const ptrdiff_t *lda,
8591 double *sva,
8592 double *u,
8593 const ptrdiff_t *ldu,
8594 double *v,
8595 const ptrdiff_t *ldv,
8596 double *work,
8597 const ptrdiff_t *lwork,
8598 ptrdiff_t *iwork,
8599 ptrdiff_t *info
8600);
8601
8602/* Source: dgelq.f */
8603#define dgelq FORTRAN_WRAPPER(dgelq)
8604extern void dgelq(
8605 const ptrdiff_t *m,
8606 const ptrdiff_t *n,
8607 double *a,
8608 const ptrdiff_t *lda,
8609 double *t,
8610 const ptrdiff_t *tsize,
8611 double *work,
8612 const ptrdiff_t *lwork,
8613 ptrdiff_t *info
8614);
8615
8616/* Source: dgelq2.f */
8617#define dgelq2 FORTRAN_WRAPPER(dgelq2)
8618extern void dgelq2(
8619 const ptrdiff_t *m,
8620 const ptrdiff_t *n,
8621 double *a,
8622 const ptrdiff_t *lda,
8623 double *tau,
8624 double *work,
8625 ptrdiff_t *info
8626);
8627
8628/* Source: dgelqf.f */
8629#define dgelqf FORTRAN_WRAPPER(dgelqf)
8630extern void dgelqf(
8631 const ptrdiff_t *m,
8632 const ptrdiff_t *n,
8633 double *a,
8634 const ptrdiff_t *lda,
8635 double *tau,
8636 double *work,
8637 const ptrdiff_t *lwork,
8638 ptrdiff_t *info
8639);
8640
8641/* Source: dgelqt.f */
8642#define dgelqt FORTRAN_WRAPPER(dgelqt)
8643extern void dgelqt(
8644 const ptrdiff_t *m,
8645 const ptrdiff_t *n,
8646 const ptrdiff_t *mb,
8647 double *a,
8648 const ptrdiff_t *lda,
8649 double *t,
8650 const ptrdiff_t *ldt,
8651 double *work,
8652 ptrdiff_t *info
8653);
8654
8655/* Source: dgelqt3.f */
8656#define dgelqt3 FORTRAN_WRAPPER(dgelqt3)
8657extern void dgelqt3(
8658 const ptrdiff_t *m,
8659 const ptrdiff_t *n,
8660 double *a,
8661 const ptrdiff_t *lda,
8662 double *t,
8663 const ptrdiff_t *ldt,
8664 ptrdiff_t *info
8665);
8666
8667/* Source: dgels.f */
8668#define dgels FORTRAN_WRAPPER(dgels)
8669extern void dgels(
8670 const char *trans,
8671 const ptrdiff_t *m,
8672 const ptrdiff_t *n,
8673 const ptrdiff_t *nrhs,
8674 double *a,
8675 const ptrdiff_t *lda,
8676 double *b,
8677 const ptrdiff_t *ldb,
8678 double *work,
8679 const ptrdiff_t *lwork,
8680 ptrdiff_t *info
8681);
8682
8683/* Source: dgelsd.f */
8684#define dgelsd FORTRAN_WRAPPER(dgelsd)
8685extern void dgelsd(
8686 const ptrdiff_t *m,
8687 const ptrdiff_t *n,
8688 const ptrdiff_t *nrhs,
8689 const double *a,
8690 const ptrdiff_t *lda,
8691 double *b,
8692 const ptrdiff_t *ldb,
8693 double *s,
8694 const double *rcond,
8695 ptrdiff_t *rank,
8696 double *work,
8697 const ptrdiff_t *lwork,
8698 ptrdiff_t *iwork,
8699 ptrdiff_t *info
8700);
8701
8702/* Source: dgelss.f */
8703#define dgelss FORTRAN_WRAPPER(dgelss)
8704extern void dgelss(
8705 const ptrdiff_t *m,
8706 const ptrdiff_t *n,
8707 const ptrdiff_t *nrhs,
8708 double *a,
8709 const ptrdiff_t *lda,
8710 double *b,
8711 const ptrdiff_t *ldb,
8712 double *s,
8713 const double *rcond,
8714 ptrdiff_t *rank,
8715 double *work,
8716 const ptrdiff_t *lwork,
8717 ptrdiff_t *info
8718);
8719
8720/* Source: dgelsy.f */
8721#define dgelsy FORTRAN_WRAPPER(dgelsy)
8722extern void dgelsy(
8723 const ptrdiff_t *m,
8724 const ptrdiff_t *n,
8725 const ptrdiff_t *nrhs,
8726 double *a,
8727 const ptrdiff_t *lda,
8728 double *b,
8729 const ptrdiff_t *ldb,
8730 ptrdiff_t *jpvt,
8731 const double *rcond,
8732 ptrdiff_t *rank,
8733 double *work,
8734 const ptrdiff_t *lwork,
8735 ptrdiff_t *info
8736);
8737
8738/* Source: dgemlq.f */
8739#define dgemlq FORTRAN_WRAPPER(dgemlq)
8740extern void dgemlq(
8741 const char *side,
8742 const char *trans,
8743 const ptrdiff_t *m,
8744 const ptrdiff_t *n,
8745 const ptrdiff_t *k,
8746 const double *a,
8747 const ptrdiff_t *lda,
8748 const double *t,
8749 const ptrdiff_t *tsize,
8750 double *c,
8751 const ptrdiff_t *ldc,
8752 double *work,
8753 const ptrdiff_t *lwork,
8754 ptrdiff_t *info
8755);
8756
8757/* Source: dgemlqt.f */
8758#define dgemlqt FORTRAN_WRAPPER(dgemlqt)
8759extern void dgemlqt(
8760 const char *side,
8761 const char *trans,
8762 const ptrdiff_t *m,
8763 const ptrdiff_t *n,
8764 const ptrdiff_t *k,
8765 const ptrdiff_t *mb,
8766 const double *v,
8767 const ptrdiff_t *ldv,
8768 const double *t,
8769 const ptrdiff_t *ldt,
8770 double *c,
8771 const ptrdiff_t *ldc,
8772 double *work,
8773 ptrdiff_t *info
8774);
8775
8776/* Source: dgemqr.f */
8777#define dgemqr FORTRAN_WRAPPER(dgemqr)
8778extern void dgemqr(
8779 const char *side,
8780 const char *trans,
8781 const ptrdiff_t *m,
8782 const ptrdiff_t *n,
8783 const ptrdiff_t *k,
8784 const double *a,
8785 const ptrdiff_t *lda,
8786 const double *t,
8787 const ptrdiff_t *tsize,
8788 double *c,
8789 const ptrdiff_t *ldc,
8790 double *work,
8791 const ptrdiff_t *lwork,
8792 ptrdiff_t *info
8793);
8794
8795/* Source: dgemqrt.f */
8796#define dgemqrt FORTRAN_WRAPPER(dgemqrt)
8797extern void dgemqrt(
8798 const char *side,
8799 const char *trans,
8800 const ptrdiff_t *m,
8801 const ptrdiff_t *n,
8802 const ptrdiff_t *k,
8803 const ptrdiff_t *nb,
8804 const double *v,
8805 const ptrdiff_t *ldv,
8806 const double *t,
8807 const ptrdiff_t *ldt,
8808 double *c,
8809 const ptrdiff_t *ldc,
8810 double *work,
8811 ptrdiff_t *info
8812);
8813
8814/* Source: dgeql2.f */
8815#define dgeql2 FORTRAN_WRAPPER(dgeql2)
8816extern void dgeql2(
8817 const ptrdiff_t *m,
8818 const ptrdiff_t *n,
8819 double *a,
8820 const ptrdiff_t *lda,
8821 double *tau,
8822 double *work,
8823 ptrdiff_t *info
8824);
8825
8826/* Source: dgeqlf.f */
8827#define dgeqlf FORTRAN_WRAPPER(dgeqlf)
8828extern void dgeqlf(
8829 const ptrdiff_t *m,
8830 const ptrdiff_t *n,
8831 double *a,
8832 const ptrdiff_t *lda,
8833 double *tau,
8834 double *work,
8835 const ptrdiff_t *lwork,
8836 ptrdiff_t *info
8837);
8838
8839/* Source: dgeqp3.f */
8840#define dgeqp3 FORTRAN_WRAPPER(dgeqp3)
8841extern void dgeqp3(
8842 const ptrdiff_t *m,
8843 const ptrdiff_t *n,
8844 double *a,
8845 const ptrdiff_t *lda,
8846 ptrdiff_t *jpvt,
8847 double *tau,
8848 double *work,
8849 const ptrdiff_t *lwork,
8850 ptrdiff_t *info
8851);
8852
8853/* Source: dgeqr.f */
8854#define dgeqr FORTRAN_WRAPPER(dgeqr)
8855extern void dgeqr(
8856 const ptrdiff_t *m,
8857 const ptrdiff_t *n,
8858 double *a,
8859 const ptrdiff_t *lda,
8860 double *t,
8861 const ptrdiff_t *tsize,
8862 double *work,
8863 const ptrdiff_t *lwork,
8864 ptrdiff_t *info
8865);
8866
8867/* Source: dgeqr2.f */
8868#define dgeqr2 FORTRAN_WRAPPER(dgeqr2)
8869extern void dgeqr2(
8870 const ptrdiff_t *m,
8871 const ptrdiff_t *n,
8872 double *a,
8873 const ptrdiff_t *lda,
8874 double *tau,
8875 double *work,
8876 ptrdiff_t *info
8877);
8878
8879/* Source: dgeqr2p.f */
8880#define dgeqr2p FORTRAN_WRAPPER(dgeqr2p)
8881extern void dgeqr2p(
8882 const ptrdiff_t *m,
8883 const ptrdiff_t *n,
8884 double *a,
8885 const ptrdiff_t *lda,
8886 double *tau,
8887 double *work,
8888 ptrdiff_t *info
8889);
8890
8891/* Source: dgeqrf.f */
8892#define dgeqrf FORTRAN_WRAPPER(dgeqrf)
8893extern void dgeqrf(
8894 const ptrdiff_t *m,
8895 const ptrdiff_t *n,
8896 double *a,
8897 const ptrdiff_t *lda,
8898 double *tau,
8899 double *work,
8900 const ptrdiff_t *lwork,
8901 ptrdiff_t *info
8902);
8903
8904/* Source: dgeqrfp.f */
8905#define dgeqrfp FORTRAN_WRAPPER(dgeqrfp)
8906extern void dgeqrfp(
8907 const ptrdiff_t *m,
8908 const ptrdiff_t *n,
8909 double *a,
8910 const ptrdiff_t *lda,
8911 double *tau,
8912 double *work,
8913 const ptrdiff_t *lwork,
8914 ptrdiff_t *info
8915);
8916
8917/* Source: dgeqrt.f */
8918#define dgeqrt FORTRAN_WRAPPER(dgeqrt)
8919extern void dgeqrt(
8920 const ptrdiff_t *m,
8921 const ptrdiff_t *n,
8922 const ptrdiff_t *nb,
8923 double *a,
8924 const ptrdiff_t *lda,
8925 double *t,
8926 const ptrdiff_t *ldt,
8927 double *work,
8928 ptrdiff_t *info
8929);
8930
8931/* Source: dgeqrt2.f */
8932#define dgeqrt2 FORTRAN_WRAPPER(dgeqrt2)
8933extern void dgeqrt2(
8934 const ptrdiff_t *m,
8935 const ptrdiff_t *n,
8936 double *a,
8937 const ptrdiff_t *lda,
8938 double *t,
8939 const ptrdiff_t *ldt,
8940 ptrdiff_t *info
8941);
8942
8943/* Source: dgeqrt3.f */
8944#define dgeqrt3 FORTRAN_WRAPPER(dgeqrt3)
8945extern void dgeqrt3(
8946 const ptrdiff_t *m,
8947 const ptrdiff_t *n,
8948 double *a,
8949 const ptrdiff_t *lda,
8950 double *t,
8951 const ptrdiff_t *ldt,
8952 ptrdiff_t *info
8953);
8954
8955/* Source: dgerfs.f */
8956#define dgerfs FORTRAN_WRAPPER(dgerfs)
8957extern void dgerfs(
8958 const char *trans,
8959 const ptrdiff_t *n,
8960 const ptrdiff_t *nrhs,
8961 const double *a,
8962 const ptrdiff_t *lda,
8963 const double *af,
8964 const ptrdiff_t *ldaf,
8965 const ptrdiff_t *ipiv,
8966 const double *b,
8967 const ptrdiff_t *ldb,
8968 double *x,
8969 const ptrdiff_t *ldx,
8970 double *ferr,
8971 double *berr,
8972 double *work,
8973 ptrdiff_t *iwork,
8974 ptrdiff_t *info
8975);
8976
8977/* Source: dgerq2.f */
8978#define dgerq2 FORTRAN_WRAPPER(dgerq2)
8979extern void dgerq2(
8980 const ptrdiff_t *m,
8981 const ptrdiff_t *n,
8982 double *a,
8983 const ptrdiff_t *lda,
8984 double *tau,
8985 double *work,
8986 ptrdiff_t *info
8987);
8988
8989/* Source: dgerqf.f */
8990#define dgerqf FORTRAN_WRAPPER(dgerqf)
8991extern void dgerqf(
8992 const ptrdiff_t *m,
8993 const ptrdiff_t *n,
8994 double *a,
8995 const ptrdiff_t *lda,
8996 double *tau,
8997 double *work,
8998 const ptrdiff_t *lwork,
8999 ptrdiff_t *info
9000);
9001
9002/* Source: dgesc2.f */
9003#define dgesc2 FORTRAN_WRAPPER(dgesc2)
9004extern void dgesc2(
9005 const ptrdiff_t *n,
9006 const double *a,
9007 const ptrdiff_t *lda,
9008 double *rhs,
9009 const ptrdiff_t *ipiv,
9010 const ptrdiff_t *jpiv,
9011 double *scale
9012);
9013
9014/* Source: dgesdd.f */
9015#define dgesdd FORTRAN_WRAPPER(dgesdd)
9016extern void dgesdd(
9017 const char *jobz,
9018 const ptrdiff_t *m,
9019 const ptrdiff_t *n,
9020 double *a,
9021 const ptrdiff_t *lda,
9022 double *s,
9023 double *u,
9024 const ptrdiff_t *ldu,
9025 double *vt,
9026 const ptrdiff_t *ldvt,
9027 double *work,
9028 const ptrdiff_t *lwork,
9029 ptrdiff_t *iwork,
9030 ptrdiff_t *info
9031);
9032
9033/* Source: dgesv.f */
9034#define dgesv FORTRAN_WRAPPER(dgesv)
9035extern void dgesv(
9036 const ptrdiff_t *n,
9037 const ptrdiff_t *nrhs,
9038 double *a,
9039 const ptrdiff_t *lda,
9040 ptrdiff_t *ipiv,
9041 double *b,
9042 const ptrdiff_t *ldb,
9043 ptrdiff_t *info
9044);
9045
9046/* Source: dgesvd.f */
9047#define dgesvd FORTRAN_WRAPPER(dgesvd)
9048extern void dgesvd(
9049 const char *jobu,
9050 const char *jobvt,
9051 const ptrdiff_t *m,
9052 const ptrdiff_t *n,
9053 double *a,
9054 const ptrdiff_t *lda,
9055 double *s,
9056 double *u,
9057 const ptrdiff_t *ldu,
9058 double *vt,
9059 const ptrdiff_t *ldvt,
9060 double *work,
9061 const ptrdiff_t *lwork,
9062 ptrdiff_t *info
9063);
9064
9065/* Source: dgesvdx.f */
9066#define dgesvdx FORTRAN_WRAPPER(dgesvdx)
9067extern void dgesvdx(
9068 const char *jobu,
9069 const char *jobvt,
9070 const char *range,
9071 const ptrdiff_t *m,
9072 const ptrdiff_t *n,
9073 double *a,
9074 const ptrdiff_t *lda,
9075 const double *vl,
9076 const double *vu,
9077 const ptrdiff_t *il,
9078 const ptrdiff_t *iu,
9079 ptrdiff_t *ns,
9080 double *s,
9081 double *u,
9082 const ptrdiff_t *ldu,
9083 double *vt,
9084 const ptrdiff_t *ldvt,
9085 double *work,
9086 const ptrdiff_t *lwork,
9087 ptrdiff_t *iwork,
9088 ptrdiff_t *info
9089);
9090
9091/* Source: dgesvj.f */
9092#define dgesvj FORTRAN_WRAPPER(dgesvj)
9093extern void dgesvj(
9094 const char *joba,
9095 const char *jobu,
9096 const char *jobv,
9097 const ptrdiff_t *m,
9098 const ptrdiff_t *n,
9099 double *a,
9100 const ptrdiff_t *lda,
9101 double *sva,
9102 const ptrdiff_t *mv,
9103 double *v,
9104 const ptrdiff_t *ldv,
9105 double *work,
9106 const ptrdiff_t *lwork,
9107 ptrdiff_t *info
9108);
9109
9110/* Source: dgesvx.f */
9111#define dgesvx FORTRAN_WRAPPER(dgesvx)
9112extern void dgesvx(
9113 const char *fact,
9114 const char *trans,
9115 const ptrdiff_t *n,
9116 const ptrdiff_t *nrhs,
9117 double *a,
9118 const ptrdiff_t *lda,
9119 double *af,
9120 const ptrdiff_t *ldaf,
9121 ptrdiff_t *ipiv,
9122 char *equed,
9123 double *r,
9124 double *c,
9125 double *b,
9126 const ptrdiff_t *ldb,
9127 double *x,
9128 const ptrdiff_t *ldx,
9129 double *rcond,
9130 double *ferr,
9131 double *berr,
9132 double *work,
9133 ptrdiff_t *iwork,
9134 ptrdiff_t *info
9135);
9136
9137/* Source: dgetc2.f */
9138#define dgetc2 FORTRAN_WRAPPER(dgetc2)
9139extern void dgetc2(
9140 const ptrdiff_t *n,
9141 double *a,
9142 const ptrdiff_t *lda,
9143 ptrdiff_t *ipiv,
9144 ptrdiff_t *jpiv,
9145 ptrdiff_t *info
9146);
9147
9148/* Source: dgetf2.f */
9149#define dgetf2 FORTRAN_WRAPPER(dgetf2)
9150extern void dgetf2(
9151 const ptrdiff_t *m,
9152 const ptrdiff_t *n,
9153 double *a,
9154 const ptrdiff_t *lda,
9155 ptrdiff_t *ipiv,
9156 ptrdiff_t *info
9157);
9158
9159/* Source: dgetrf.f */
9160#define dgetrf FORTRAN_WRAPPER(dgetrf)
9161extern void dgetrf(
9162 const ptrdiff_t *m,
9163 const ptrdiff_t *n,
9164 double *a,
9165 const ptrdiff_t *lda,
9166 ptrdiff_t *ipiv,
9167 ptrdiff_t *info
9168);
9169
9170/* Source: dgetrf2.f */
9171#define dgetrf2 FORTRAN_WRAPPER(dgetrf2)
9172extern void dgetrf2(
9173 const ptrdiff_t *m,
9174 const ptrdiff_t *n,
9175 double *a,
9176 const ptrdiff_t *lda,
9177 ptrdiff_t *ipiv,
9178 ptrdiff_t *info
9179);
9180
9181/* Source: dgetri.f */
9182#define dgetri FORTRAN_WRAPPER(dgetri)
9183extern void dgetri(
9184 const ptrdiff_t *n,
9185 double *a,
9186 const ptrdiff_t *lda,
9187 const ptrdiff_t *ipiv,
9188 double *work,
9189 const ptrdiff_t *lwork,
9190 ptrdiff_t *info
9191);
9192
9193/* Source: dgetrs.f */
9194#define dgetrs FORTRAN_WRAPPER(dgetrs)
9195extern void dgetrs(
9196 const char *trans,
9197 const ptrdiff_t *n,
9198 const ptrdiff_t *nrhs,
9199 const double *a,
9200 const ptrdiff_t *lda,
9201 const ptrdiff_t *ipiv,
9202 double *b,
9203 const ptrdiff_t *ldb,
9204 ptrdiff_t *info
9205);
9206
9207/* Source: dgetsls.f */
9208#define dgetsls FORTRAN_WRAPPER(dgetsls)
9209extern void dgetsls(
9210 const char *trans,
9211 const ptrdiff_t *m,
9212 const ptrdiff_t *n,
9213 const ptrdiff_t *nrhs,
9214 double *a,
9215 const ptrdiff_t *lda,
9216 double *b,
9217 const ptrdiff_t *ldb,
9218 double *work,
9219 const ptrdiff_t *lwork,
9220 ptrdiff_t *info
9221);
9222
9223/* Source: dggbak.f */
9224#define dggbak FORTRAN_WRAPPER(dggbak)
9225extern void dggbak(
9226 const char *job,
9227 const char *side,
9228 const ptrdiff_t *n,
9229 const ptrdiff_t *ilo,
9230 const ptrdiff_t *ihi,
9231 const double *lscale,
9232 const double *rscale,
9233 const ptrdiff_t *m,
9234 double *v,
9235 const ptrdiff_t *ldv,
9236 ptrdiff_t *info
9237);
9238
9239/* Source: dggbal.f */
9240#define dggbal FORTRAN_WRAPPER(dggbal)
9241extern void dggbal(
9242 const char *job,
9243 const ptrdiff_t *n,
9244 double *a,
9245 const ptrdiff_t *lda,
9246 double *b,
9247 const ptrdiff_t *ldb,
9248 ptrdiff_t *ilo,
9249 ptrdiff_t *ihi,
9250 double *lscale,
9251 double *rscale,
9252 double *work,
9253 ptrdiff_t *info
9254);
9255
9256/* Source: dgges.f */
9257#define dgges FORTRAN_WRAPPER(dgges)
9258extern void dgges(
9259 const char *jobvsl,
9260 const char *jobvsr,
9261 const char *sort,
9262 ptrdiff_t (*selctg)(),
9263 const ptrdiff_t *n,
9264 double *a,
9265 const ptrdiff_t *lda,
9266 double *b,
9267 const ptrdiff_t *ldb,
9268 ptrdiff_t *sdim,
9269 double *alphar,
9270 double *alphai,
9271 double *beta,
9272 double *vsl,
9273 const ptrdiff_t *ldvsl,
9274 double *vsr,
9275 const ptrdiff_t *ldvsr,
9276 double *work,
9277 const ptrdiff_t *lwork,
9278 ptrdiff_t *bwork,
9279 ptrdiff_t *info
9280);
9281
9282/* Source: dgges3.f */
9283#define dgges3 FORTRAN_WRAPPER(dgges3)
9284extern void dgges3(
9285 const char *jobvsl,
9286 const char *jobvsr,
9287 const char *sort,
9288 ptrdiff_t (*selctg)(),
9289 const ptrdiff_t *n,
9290 double *a,
9291 const ptrdiff_t *lda,
9292 double *b,
9293 const ptrdiff_t *ldb,
9294 ptrdiff_t *sdim,
9295 double *alphar,
9296 double *alphai,
9297 double *beta,
9298 double *vsl,
9299 const ptrdiff_t *ldvsl,
9300 double *vsr,
9301 const ptrdiff_t *ldvsr,
9302 double *work,
9303 const ptrdiff_t *lwork,
9304 ptrdiff_t *bwork,
9305 ptrdiff_t *info
9306);
9307
9308/* Source: dggesx.f */
9309#define dggesx FORTRAN_WRAPPER(dggesx)
9310extern void dggesx(
9311 const char *jobvsl,
9312 const char *jobvsr,
9313 const char *sort,
9314 ptrdiff_t (*selctg)(),
9315 const char *sense,
9316 const ptrdiff_t *n,
9317 double *a,
9318 const ptrdiff_t *lda,
9319 double *b,
9320 const ptrdiff_t *ldb,
9321 ptrdiff_t *sdim,
9322 double *alphar,
9323 double *alphai,
9324 double *beta,
9325 double *vsl,
9326 const ptrdiff_t *ldvsl,
9327 double *vsr,
9328 const ptrdiff_t *ldvsr,
9329 double *rconde,
9330 double *rcondv,
9331 double *work,
9332 const ptrdiff_t *lwork,
9333 ptrdiff_t *iwork,
9334 const ptrdiff_t *liwork,
9335 ptrdiff_t *bwork,
9336 ptrdiff_t *info
9337);
9338
9339/* Source: dggev.f */
9340#define dggev FORTRAN_WRAPPER(dggev)
9341extern void dggev(
9342 const char *jobvl,
9343 const char *jobvr,
9344 const ptrdiff_t *n,
9345 double *a,
9346 const ptrdiff_t *lda,
9347 double *b,
9348 const ptrdiff_t *ldb,
9349 double *alphar,
9350 double *alphai,
9351 double *beta,
9352 double *vl,
9353 const ptrdiff_t *ldvl,
9354 double *vr,
9355 const ptrdiff_t *ldvr,
9356 double *work,
9357 const ptrdiff_t *lwork,
9358 ptrdiff_t *info
9359);
9360
9361/* Source: dggev3.f */
9362#define dggev3 FORTRAN_WRAPPER(dggev3)
9363extern void dggev3(
9364 const char *jobvl,
9365 const char *jobvr,
9366 const ptrdiff_t *n,
9367 double *a,
9368 const ptrdiff_t *lda,
9369 double *b,
9370 const ptrdiff_t *ldb,
9371 double *alphar,
9372 double *alphai,
9373 double *beta,
9374 double *vl,
9375 const ptrdiff_t *ldvl,
9376 double *vr,
9377 const ptrdiff_t *ldvr,
9378 double *work,
9379 const ptrdiff_t *lwork,
9380 ptrdiff_t *info
9381);
9382
9383/* Source: dggevx.f */
9384#define dggevx FORTRAN_WRAPPER(dggevx)
9385extern void dggevx(
9386 const char *balanc,
9387 const char *jobvl,
9388 const char *jobvr,
9389 const char *sense,
9390 const ptrdiff_t *n,
9391 double *a,
9392 const ptrdiff_t *lda,
9393 double *b,
9394 const ptrdiff_t *ldb,
9395 double *alphar,
9396 double *alphai,
9397 double *beta,
9398 double *vl,
9399 const ptrdiff_t *ldvl,
9400 double *vr,
9401 const ptrdiff_t *ldvr,
9402 ptrdiff_t *ilo,
9403 ptrdiff_t *ihi,
9404 double *lscale,
9405 double *rscale,
9406 double *abnrm,
9407 double *bbnrm,
9408 double *rconde,
9409 double *rcondv,
9410 double *work,
9411 const ptrdiff_t *lwork,
9412 ptrdiff_t *iwork,
9413 ptrdiff_t *bwork,
9414 ptrdiff_t *info
9415);
9416
9417/* Source: dggglm.f */
9418#define dggglm FORTRAN_WRAPPER(dggglm)
9419extern void dggglm(
9420 const ptrdiff_t *n,
9421 const ptrdiff_t *m,
9422 const ptrdiff_t *p,
9423 double *a,
9424 const ptrdiff_t *lda,
9425 double *b,
9426 const ptrdiff_t *ldb,
9427 double *d,
9428 double *x,
9429 double *y,
9430 double *work,
9431 const ptrdiff_t *lwork,
9432 ptrdiff_t *info
9433);
9434
9435/* Source: dgghd3.f */
9436#define dgghd3 FORTRAN_WRAPPER(dgghd3)
9437extern void dgghd3(
9438 const char *compq,
9439 const char *compz,
9440 const ptrdiff_t *n,
9441 const ptrdiff_t *ilo,
9442 const ptrdiff_t *ihi,
9443 double *a,
9444 const ptrdiff_t *lda,
9445 double *b,
9446 const ptrdiff_t *ldb,
9447 double *q,
9448 const ptrdiff_t *ldq,
9449 double *z,
9450 const ptrdiff_t *ldz,
9451 double *work,
9452 const ptrdiff_t *lwork,
9453 ptrdiff_t *info
9454);
9455
9456/* Source: dgghrd.f */
9457#define dgghrd FORTRAN_WRAPPER(dgghrd)
9458extern void dgghrd(
9459 const char *compq,
9460 const char *compz,
9461 const ptrdiff_t *n,
9462 const ptrdiff_t *ilo,
9463 const ptrdiff_t *ihi,
9464 double *a,
9465 const ptrdiff_t *lda,
9466 double *b,
9467 const ptrdiff_t *ldb,
9468 double *q,
9469 const ptrdiff_t *ldq,
9470 double *z,
9471 const ptrdiff_t *ldz,
9472 ptrdiff_t *info
9473);
9474
9475/* Source: dgglse.f */
9476#define dgglse FORTRAN_WRAPPER(dgglse)
9477extern void dgglse(
9478 const ptrdiff_t *m,
9479 const ptrdiff_t *n,
9480 const ptrdiff_t *p,
9481 double *a,
9482 const ptrdiff_t *lda,
9483 double *b,
9484 const ptrdiff_t *ldb,
9485 double *c,
9486 double *d,
9487 double *x,
9488 double *work,
9489 const ptrdiff_t *lwork,
9490 ptrdiff_t *info
9491);
9492
9493/* Source: dggqrf.f */
9494#define dggqrf FORTRAN_WRAPPER(dggqrf)
9495extern void dggqrf(
9496 const ptrdiff_t *n,
9497 const ptrdiff_t *m,
9498 const ptrdiff_t *p,
9499 double *a,
9500 const ptrdiff_t *lda,
9501 double *taua,
9502 double *b,
9503 const ptrdiff_t *ldb,
9504 double *taub,
9505 double *work,
9506 const ptrdiff_t *lwork,
9507 ptrdiff_t *info
9508);
9509
9510/* Source: dggrqf.f */
9511#define dggrqf FORTRAN_WRAPPER(dggrqf)
9512extern void dggrqf(
9513 const ptrdiff_t *m,
9514 const ptrdiff_t *p,
9515 const ptrdiff_t *n,
9516 double *a,
9517 const ptrdiff_t *lda,
9518 double *taua,
9519 double *b,
9520 const ptrdiff_t *ldb,
9521 double *taub,
9522 double *work,
9523 const ptrdiff_t *lwork,
9524 ptrdiff_t *info
9525);
9526
9527/* Source: dggsvd3.f */
9528#define dggsvd3 FORTRAN_WRAPPER(dggsvd3)
9529extern void dggsvd3(
9530 const char *jobu,
9531 const char *jobv,
9532 const char *jobq,
9533 const ptrdiff_t *m,
9534 const ptrdiff_t *n,
9535 const ptrdiff_t *p,
9536 ptrdiff_t *k,
9537 ptrdiff_t *l,
9538 double *a,
9539 const ptrdiff_t *lda,
9540 double *b,
9541 const ptrdiff_t *ldb,
9542 double *alpha,
9543 double *beta,
9544 double *u,
9545 const ptrdiff_t *ldu,
9546 double *v,
9547 const ptrdiff_t *ldv,
9548 double *q,
9549 const ptrdiff_t *ldq,
9550 double *work,
9551 const ptrdiff_t *lwork,
9552 ptrdiff_t *iwork,
9553 ptrdiff_t *info
9554);
9555
9556/* Source: dggsvp3.f */
9557#define dggsvp3 FORTRAN_WRAPPER(dggsvp3)
9558extern void dggsvp3(
9559 const char *jobu,
9560 const char *jobv,
9561 const char *jobq,
9562 const ptrdiff_t *m,
9563 const ptrdiff_t *p,
9564 const ptrdiff_t *n,
9565 double *a,
9566 const ptrdiff_t *lda,
9567 double *b,
9568 const ptrdiff_t *ldb,
9569 const double *tola,
9570 const double *tolb,
9571 ptrdiff_t *k,
9572 ptrdiff_t *l,
9573 double *u,
9574 const ptrdiff_t *ldu,
9575 double *v,
9576 const ptrdiff_t *ldv,
9577 double *q,
9578 const ptrdiff_t *ldq,
9579 ptrdiff_t *iwork,
9580 double *tau,
9581 double *work,
9582 const ptrdiff_t *lwork,
9583 ptrdiff_t *info
9584);
9585
9586/* Source: dgsvj0.f */
9587#define dgsvj0 FORTRAN_WRAPPER(dgsvj0)
9588extern void dgsvj0(
9589 const char *jobv,
9590 const ptrdiff_t *m,
9591 const ptrdiff_t *n,
9592 double *a,
9593 const ptrdiff_t *lda,
9594 double *d,
9595 double *sva,
9596 const ptrdiff_t *mv,
9597 double *v,
9598 const ptrdiff_t *ldv,
9599 const double *eps,
9600 const double *sfmin,
9601 const double *tol,
9602 const ptrdiff_t *nsweep,
9603 double *work,
9604 const ptrdiff_t *lwork,
9605 ptrdiff_t *info
9606);
9607
9608/* Source: dgsvj1.f */
9609#define dgsvj1 FORTRAN_WRAPPER(dgsvj1)
9610extern void dgsvj1(
9611 const char *jobv,
9612 const ptrdiff_t *m,
9613 const ptrdiff_t *n,
9614 const ptrdiff_t *n1,
9615 double *a,
9616 const ptrdiff_t *lda,
9617 double *d,
9618 double *sva,
9619 const ptrdiff_t *mv,
9620 double *v,
9621 const ptrdiff_t *ldv,
9622 const double *eps,
9623 const double *sfmin,
9624 const double *tol,
9625 const ptrdiff_t *nsweep,
9626 double *work,
9627 const ptrdiff_t *lwork,
9628 ptrdiff_t *info
9629);
9630
9631/* Source: dgtcon.f */
9632#define dgtcon FORTRAN_WRAPPER(dgtcon)
9633extern void dgtcon(
9634 const char *norm,
9635 const ptrdiff_t *n,
9636 const double *dl,
9637 const double *d,
9638 const double *du,
9639 const double *du2,
9640 const ptrdiff_t *ipiv,
9641 const double *anorm,
9642 double *rcond,
9643 double *work,
9644 ptrdiff_t *iwork,
9645 ptrdiff_t *info
9646);
9647
9648/* Source: dgtrfs.f */
9649#define dgtrfs FORTRAN_WRAPPER(dgtrfs)
9650extern void dgtrfs(
9651 const char *trans,
9652 const ptrdiff_t *n,
9653 const ptrdiff_t *nrhs,
9654 const double *dl,
9655 const double *d,
9656 const double *du,
9657 const double *dlf,
9658 const double *df,
9659 const double *duf,
9660 const double *du2,
9661 const ptrdiff_t *ipiv,
9662 const double *b,
9663 const ptrdiff_t *ldb,
9664 double *x,
9665 const ptrdiff_t *ldx,
9666 double *ferr,
9667 double *berr,
9668 double *work,
9669 ptrdiff_t *iwork,
9670 ptrdiff_t *info
9671);
9672
9673/* Source: dgtsv.f */
9674#define dgtsv FORTRAN_WRAPPER(dgtsv)
9675extern void dgtsv(
9676 const ptrdiff_t *n,
9677 const ptrdiff_t *nrhs,
9678 double *dl,
9679 double *d,
9680 double *du,
9681 double *b,
9682 const ptrdiff_t *ldb,
9683 ptrdiff_t *info
9684);
9685
9686/* Source: dgtsvx.f */
9687#define dgtsvx FORTRAN_WRAPPER(dgtsvx)
9688extern void dgtsvx(
9689 const char *fact,
9690 const char *trans,
9691 const ptrdiff_t *n,
9692 const ptrdiff_t *nrhs,
9693 const double *dl,
9694 const double *d,
9695 const double *du,
9696 double *dlf,
9697 double *df,
9698 double *duf,
9699 double *du2,
9700 ptrdiff_t *ipiv,
9701 const double *b,
9702 const ptrdiff_t *ldb,
9703 double *x,
9704 const ptrdiff_t *ldx,
9705 double *rcond,
9706 double *ferr,
9707 double *berr,
9708 double *work,
9709 ptrdiff_t *iwork,
9710 ptrdiff_t *info
9711);
9712
9713/* Source: dgttrf.f */
9714#define dgttrf FORTRAN_WRAPPER(dgttrf)
9715extern void dgttrf(
9716 const ptrdiff_t *n,
9717 double *dl,
9718 double *d,
9719 double *du,
9720 double *du2,
9721 ptrdiff_t *ipiv,
9722 ptrdiff_t *info
9723);
9724
9725/* Source: dgttrs.f */
9726#define dgttrs FORTRAN_WRAPPER(dgttrs)
9727extern void dgttrs(
9728 const char *trans,
9729 const ptrdiff_t *n,
9730 const ptrdiff_t *nrhs,
9731 const double *dl,
9732 const double *d,
9733 const double *du,
9734 const double *du2,
9735 const ptrdiff_t *ipiv,
9736 double *b,
9737 const ptrdiff_t *ldb,
9738 ptrdiff_t *info
9739);
9740
9741/* Source: dgtts2.f */
9742#define dgtts2 FORTRAN_WRAPPER(dgtts2)
9743extern void dgtts2(
9744 const ptrdiff_t *itrans,
9745 const ptrdiff_t *n,
9746 const ptrdiff_t *nrhs,
9747 const double *dl,
9748 const double *d,
9749 const double *du,
9750 const double *du2,
9751 const ptrdiff_t *ipiv,
9752 double *b,
9753 const ptrdiff_t *ldb
9754);
9755
9756/* Source: dhgeqz.f */
9757#define dhgeqz FORTRAN_WRAPPER(dhgeqz)
9758extern void dhgeqz(
9759 const char *job,
9760 const char *compq,
9761 const char *compz,
9762 const ptrdiff_t *n,
9763 const ptrdiff_t *ilo,
9764 const ptrdiff_t *ihi,
9765 double *h,
9766 const ptrdiff_t *ldh,
9767 double *t,
9768 const ptrdiff_t *ldt,
9769 double *alphar,
9770 double *alphai,
9771 double *beta,
9772 double *q,
9773 const ptrdiff_t *ldq,
9774 double *z,
9775 const ptrdiff_t *ldz,
9776 double *work,
9777 const ptrdiff_t *lwork,
9778 ptrdiff_t *info
9779);
9780
9781/* Source: dhsein.f */
9782#define dhsein FORTRAN_WRAPPER(dhsein)
9783extern void dhsein(
9784 const char *side,
9785 const char *eigsrc,
9786 const char *initv,
9787 ptrdiff_t *select,
9788 const ptrdiff_t *n,
9789 const double *h,
9790 const ptrdiff_t *ldh,
9791 double *wr,
9792 const double *wi,
9793 double *vl,
9794 const ptrdiff_t *ldvl,
9795 double *vr,
9796 const ptrdiff_t *ldvr,
9797 const ptrdiff_t *mm,
9798 ptrdiff_t *m,
9799 double *work,
9800 ptrdiff_t *ifaill,
9801 ptrdiff_t *ifailr,
9802 ptrdiff_t *info
9803);
9804
9805/* Source: dhseqr.f */
9806#define dhseqr FORTRAN_WRAPPER(dhseqr)
9807extern void dhseqr(
9808 const char *job,
9809 const char *compz,
9810 const ptrdiff_t *n,
9811 const ptrdiff_t *ilo,
9812 const ptrdiff_t *ihi,
9813 double *h,
9814 const ptrdiff_t *ldh,
9815 double *wr,
9816 double *wi,
9817 double *z,
9818 const ptrdiff_t *ldz,
9819 double *work,
9820 const ptrdiff_t *lwork,
9821 ptrdiff_t *info
9822);
9823
9824/* Source: disnan.f */
9825#define disnan FORTRAN_WRAPPER(disnan)
9826extern ptrdiff_t disnan(
9827 const double *din
9828);
9829
9830/* Source: dlabad.f */
9831#define dlabad FORTRAN_WRAPPER(dlabad)
9832extern void dlabad(
9833 double *small,
9834 double *large
9835);
9836
9837/* Source: dlabrd.f */
9838#define dlabrd FORTRAN_WRAPPER(dlabrd)
9839extern void dlabrd(
9840 const ptrdiff_t *m,
9841 const ptrdiff_t *n,
9842 const ptrdiff_t *nb,
9843 double *a,
9844 const ptrdiff_t *lda,
9845 double *d,
9846 double *e,
9847 double *tauq,
9848 double *taup,
9849 double *x,
9850 const ptrdiff_t *ldx,
9851 double *y,
9852 const ptrdiff_t *ldy
9853);
9854
9855/* Source: dlacn2.f */
9856#define dlacn2 FORTRAN_WRAPPER(dlacn2)
9857extern void dlacn2(
9858 const ptrdiff_t *n,
9859 double *v,
9860 double *x,
9861 ptrdiff_t *isgn,
9862 double *est,
9863 ptrdiff_t *kase,
9864 ptrdiff_t *isave
9865);
9866
9867/* Source: dlacon.f */
9868#define dlacon FORTRAN_WRAPPER(dlacon)
9869extern void dlacon(
9870 const ptrdiff_t *n,
9871 double *v,
9872 double *x,
9873 ptrdiff_t *isgn,
9874 double *est,
9875 ptrdiff_t *kase
9876);
9877
9878/* Source: dlacpy.f */
9879#define dlacpy FORTRAN_WRAPPER(dlacpy)
9880extern void dlacpy(
9881 const char *uplo,
9882 const ptrdiff_t *m,
9883 const ptrdiff_t *n,
9884 const double *a,
9885 const ptrdiff_t *lda,
9886 double *b,
9887 const ptrdiff_t *ldb
9888);
9889
9890/* Source: dladiv.f */
9891#define dladiv FORTRAN_WRAPPER(dladiv)
9892extern void dladiv(
9893 const double *a,
9894 const double *b,
9895 const double *c,
9896 const double *d,
9897 double *p,
9898 double *q
9899);
9900
9901/* Source: dladiv.f */
9902#define dladiv1 FORTRAN_WRAPPER(dladiv1)
9903extern void dladiv1(
9904 double *a,
9905 double *b,
9906 double *c,
9907 double *d,
9908 double *p,
9909 double *q
9910);
9911
9912/* Source: dladiv.f */
9913#define dladiv2 FORTRAN_WRAPPER(dladiv2)
9914extern double dladiv2(
9915 double *a,
9916 double *b,
9917 double *c,
9918 double *d,
9919 double *r,
9920 double *t
9921);
9922
9923/* Source: dlae2.f */
9924#define dlae2 FORTRAN_WRAPPER(dlae2)
9925extern void dlae2(
9926 const double *a,
9927 const double *b,
9928 const double *c,
9929 double *rt1,
9930 double *rt2
9931);
9932
9933/* Source: dlaebz.f */
9934#define dlaebz FORTRAN_WRAPPER(dlaebz)
9935extern void dlaebz(
9936 const ptrdiff_t *ijob,
9937 const ptrdiff_t *nitmax,
9938 const ptrdiff_t *n,
9939 const ptrdiff_t *mmax,
9940 const ptrdiff_t *minp,
9941 const ptrdiff_t *nbmin,
9942 const double *abstol,
9943 const double *reltol,
9944 const double *pivmin,
9945 const double *d,
9946 const double *e,
9947 const double *e2,
9948 ptrdiff_t *nval,
9949 double *ab,
9950 double *c,
9951 ptrdiff_t *mout,
9952 ptrdiff_t *nab,
9953 double *work,
9954 ptrdiff_t *iwork,
9955 ptrdiff_t *info
9956);
9957
9958/* Source: dlaed0.f */
9959#define dlaed0 FORTRAN_WRAPPER(dlaed0)
9960extern void dlaed0(
9961 const ptrdiff_t *icompq,
9962 const ptrdiff_t *qsiz,
9963 const ptrdiff_t *n,
9964 double *d,
9965 const double *e,
9966 double *q,
9967 const ptrdiff_t *ldq,
9968 double *qstore,
9969 const ptrdiff_t *ldqs,
9970 double *work,
9971 ptrdiff_t *iwork,
9972 ptrdiff_t *info
9973);
9974
9975/* Source: dlaed1.f */
9976#define dlaed1 FORTRAN_WRAPPER(dlaed1)
9977extern void dlaed1(
9978 const ptrdiff_t *n,
9979 double *d,
9980 double *q,
9981 const ptrdiff_t *ldq,
9982 ptrdiff_t *indxq,
9983 const double *rho,
9984 const ptrdiff_t *cutpnt,
9985 double *work,
9986 ptrdiff_t *iwork,
9987 ptrdiff_t *info
9988);
9989
9990/* Source: dlaed2.f */
9991#define dlaed2 FORTRAN_WRAPPER(dlaed2)
9992extern void dlaed2(
9993 ptrdiff_t *k,
9994 const ptrdiff_t *n,
9995 const ptrdiff_t *n1,
9996 double *d,
9997 double *q,
9998 const ptrdiff_t *ldq,
9999 ptrdiff_t *indxq,
10000 double *rho,
10001 const double *z,
10002 double *dlamda,
10003 double *w,
10004 double *q2,
10005 ptrdiff_t *indx,
10006 ptrdiff_t *indxc,
10007 ptrdiff_t *indxp,
10008 ptrdiff_t *coltyp,
10009 ptrdiff_t *info
10010);
10011
10012/* Source: dlaed3.f */
10013#define dlaed3 FORTRAN_WRAPPER(dlaed3)
10014extern void dlaed3(
10015 const ptrdiff_t *k,
10016 const ptrdiff_t *n,
10017 const ptrdiff_t *n1,
10018 double *d,
10019 double *q,
10020 const ptrdiff_t *ldq,
10021 const double *rho,
10022 double *dlamda,
10023 const double *q2,
10024 const ptrdiff_t *indx,
10025 const ptrdiff_t *ctot,
10026 double *w,
10027 double *s,
10028 ptrdiff_t *info
10029);
10030
10031/* Source: dlaed4.f */
10032#define dlaed4 FORTRAN_WRAPPER(dlaed4)
10033extern void dlaed4(
10034 const ptrdiff_t *n,
10035 const ptrdiff_t *i,
10036 const double *d,
10037 const double *z,
10038 double *delta,
10039 const double *rho,
10040 double *dlam,
10041 ptrdiff_t *info
10042);
10043
10044/* Source: dlaed5.f */
10045#define dlaed5 FORTRAN_WRAPPER(dlaed5)
10046extern void dlaed5(
10047 const ptrdiff_t *i,
10048 const double *d,
10049 const double *z,
10050 double *delta,
10051 const double *rho,
10052 double *dlam
10053);
10054
10055/* Source: dlaed6.f */
10056#define dlaed6 FORTRAN_WRAPPER(dlaed6)
10057extern void dlaed6(
10058 const ptrdiff_t *kniter,
10059 const ptrdiff_t *orgati,
10060 const double *rho,
10061 const double *d,
10062 const double *z,
10063 const double *finit,
10064 double *tau,
10065 ptrdiff_t *info
10066);
10067
10068/* Source: dlaed7.f */
10069#define dlaed7 FORTRAN_WRAPPER(dlaed7)
10070extern void dlaed7(
10071 const ptrdiff_t *icompq,
10072 const ptrdiff_t *n,
10073 const ptrdiff_t *qsiz,
10074 const ptrdiff_t *tlvls,
10075 const ptrdiff_t *curlvl,
10076 const ptrdiff_t *curpbm,
10077 double *d,
10078 double *q,
10079 const ptrdiff_t *ldq,
10080 ptrdiff_t *indxq,
10081 const double *rho,
10082 const ptrdiff_t *cutpnt,
10083 double *qstore,
10084 ptrdiff_t *qptr,
10085 const ptrdiff_t *prmptr,
10086 const ptrdiff_t *perm,
10087 const ptrdiff_t *givptr,
10088 const ptrdiff_t *givcol,
10089 const double *givnum,
10090 double *work,
10091 ptrdiff_t *iwork,
10092 ptrdiff_t *info
10093);
10094
10095/* Source: dlaed8.f */
10096#define dlaed8 FORTRAN_WRAPPER(dlaed8)
10097extern void dlaed8(
10098 const ptrdiff_t *icompq,
10099 ptrdiff_t *k,
10100 const ptrdiff_t *n,
10101 const ptrdiff_t *qsiz,
10102 double *d,
10103 double *q,
10104 const ptrdiff_t *ldq,
10105 const ptrdiff_t *indxq,
10106 double *rho,
10107 const ptrdiff_t *cutpnt,
10108 const double *z,
10109 double *dlamda,
10110 double *q2,
10111 const ptrdiff_t *ldq2,
10112 double *w,
10113 ptrdiff_t *perm,
10114 ptrdiff_t *givptr,
10115 ptrdiff_t *givcol,
10116 double *givnum,
10117 ptrdiff_t *indxp,
10118 ptrdiff_t *indx,
10119 ptrdiff_t *info
10120);
10121
10122/* Source: dlaed9.f */
10123#define dlaed9 FORTRAN_WRAPPER(dlaed9)
10124extern void dlaed9(
10125 const ptrdiff_t *k,
10126 const ptrdiff_t *kstart,
10127 const ptrdiff_t *kstop,
10128 const ptrdiff_t *n,
10129 double *d,
10130 double *q,
10131 const ptrdiff_t *ldq,
10132 const double *rho,
10133 const double *dlamda,
10134 const double *w,
10135 double *s,
10136 const ptrdiff_t *lds,
10137 ptrdiff_t *info
10138);
10139
10140/* Source: dlaeda.f */
10141#define dlaeda FORTRAN_WRAPPER(dlaeda)
10142extern void dlaeda(
10143 const ptrdiff_t *n,
10144 const ptrdiff_t *tlvls,
10145 const ptrdiff_t *curlvl,
10146 const ptrdiff_t *curpbm,
10147 const ptrdiff_t *prmptr,
10148 const ptrdiff_t *perm,
10149 const ptrdiff_t *givptr,
10150 const ptrdiff_t *givcol,
10151 const double *givnum,
10152 const double *q,
10153 const ptrdiff_t *qptr,
10154 double *z,
10155 double *ztemp,
10156 ptrdiff_t *info
10157);
10158
10159/* Source: dlaein.f */
10160#define dlaein FORTRAN_WRAPPER(dlaein)
10161extern void dlaein(
10162 const ptrdiff_t *rightv,
10163 const ptrdiff_t *noinit,
10164 const ptrdiff_t *n,
10165 const double *h,
10166 const ptrdiff_t *ldh,
10167 const double *wr,
10168 const double *wi,
10169 double *vr,
10170 double *vi,
10171 double *b,
10172 const ptrdiff_t *ldb,
10173 double *work,
10174 const double *eps3,
10175 const double *smlnum,
10176 const double *bignum,
10177 ptrdiff_t *info
10178);
10179
10180/* Source: dlaev2.f */
10181#define dlaev2 FORTRAN_WRAPPER(dlaev2)
10182extern void dlaev2(
10183 const double *a,
10184 const double *b,
10185 const double *c,
10186 double *rt1,
10187 double *rt2,
10188 double *cs1,
10189 double *sn1
10190);
10191
10192/* Source: dlaexc.f */
10193#define dlaexc FORTRAN_WRAPPER(dlaexc)
10194extern void dlaexc(
10195 const ptrdiff_t *wantq,
10196 const ptrdiff_t *n,
10197 double *t,
10198 const ptrdiff_t *ldt,
10199 double *q,
10200 const ptrdiff_t *ldq,
10201 const ptrdiff_t *j1_,
10202 const ptrdiff_t *n1,
10203 const ptrdiff_t *n2,
10204 double *work,
10205 ptrdiff_t *info
10206);
10207
10208/* Source: dlag2.f */
10209#define dlag2 FORTRAN_WRAPPER(dlag2)
10210extern void dlag2(
10211 const double *a,
10212 const ptrdiff_t *lda,
10213 const double *b,
10214 const ptrdiff_t *ldb,
10215 const double *safmin,
10216 double *scale1,
10217 double *scale2,
10218 double *wr1,
10219 double *wr2,
10220 double *wi
10221);
10222
10223/* Source: dlag2s.f */
10224#define dlag2s FORTRAN_WRAPPER(dlag2s)
10225extern void dlag2s(
10226 const ptrdiff_t *m,
10227 const ptrdiff_t *n,
10228 const double *a,
10229 const ptrdiff_t *lda,
10230 float *sa,
10231 const ptrdiff_t *ldsa,
10232 ptrdiff_t *info
10233);
10234
10235/* Source: dlags2.f */
10236#define dlags2 FORTRAN_WRAPPER(dlags2)
10237extern void dlags2(
10238 const ptrdiff_t *upper,
10239 const double *a1,
10240 const double *a2,
10241 const double *a3,
10242 const double *b1,
10243 const double *b2,
10244 const double *b3,
10245 double *csu,
10246 double *snu,
10247 double *csv,
10248 double *snv,
10249 double *csq,
10250 double *snq
10251);
10252
10253/* Source: dlagtf.f */
10254#define dlagtf FORTRAN_WRAPPER(dlagtf)
10255extern void dlagtf(
10256 const ptrdiff_t *n,
10257 double *a,
10258 const double *lambda,
10259 double *b,
10260 double *c,
10261 const double *tol,
10262 double *d,
10263 ptrdiff_t *in,
10264 ptrdiff_t *info
10265);
10266
10267/* Source: dlagtm.f */
10268#define dlagtm FORTRAN_WRAPPER(dlagtm)
10269extern void dlagtm(
10270 const char *trans,
10271 const ptrdiff_t *n,
10272 const ptrdiff_t *nrhs,
10273 const double *alpha,
10274 const double *dl,
10275 const double *d,
10276 const double *du,
10277 const double *x,
10278 const ptrdiff_t *ldx,
10279 const double *beta,
10280 double *b,
10281 const ptrdiff_t *ldb
10282);
10283
10284/* Source: dlagts.f */
10285#define dlagts FORTRAN_WRAPPER(dlagts)
10286extern void dlagts(
10287 const ptrdiff_t *job,
10288 const ptrdiff_t *n,
10289 const double *a,
10290 const double *b,
10291 const double *c,
10292 const double *d,
10293 const ptrdiff_t *in,
10294 double *y,
10295 double *tol,
10296 ptrdiff_t *info
10297);
10298
10299/* Source: dlagv2.f */
10300#define dlagv2 FORTRAN_WRAPPER(dlagv2)
10301extern void dlagv2(
10302 double *a,
10303 const ptrdiff_t *lda,
10304 double *b,
10305 const ptrdiff_t *ldb,
10306 double *alphar,
10307 double *alphai,
10308 double *beta,
10309 double *csl,
10310 double *snl,
10311 double *csr,
10312 double *snr
10313);
10314
10315/* Source: dlahqr.f */
10316#define dlahqr FORTRAN_WRAPPER(dlahqr)
10317extern void dlahqr(
10318 const ptrdiff_t *wantt,
10319 const ptrdiff_t *wantz,
10320 const ptrdiff_t *n,
10321 const ptrdiff_t *ilo,
10322 const ptrdiff_t *ihi,
10323 double *h,
10324 const ptrdiff_t *ldh,
10325 double *wr,
10326 double *wi,
10327 const ptrdiff_t *iloz,
10328 const ptrdiff_t *ihiz,
10329 double *z,
10330 const ptrdiff_t *ldz,
10331 ptrdiff_t *info
10332);
10333
10334/* Source: dlahr2.f */
10335#define dlahr2 FORTRAN_WRAPPER(dlahr2)
10336extern void dlahr2(
10337 const ptrdiff_t *n,
10338 const ptrdiff_t *k,
10339 const ptrdiff_t *nb,
10340 double *a,
10341 const ptrdiff_t *lda,
10342 double *tau,
10343 double *t,
10344 const ptrdiff_t *ldt,
10345 double *y,
10346 const ptrdiff_t *ldy
10347);
10348
10349/* Source: dlaic1.f */
10350#define dlaic1 FORTRAN_WRAPPER(dlaic1)
10351extern void dlaic1(
10352 const ptrdiff_t *job,
10353 const ptrdiff_t *j,
10354 const double *x,
10355 const double *sest,
10356 const double *w,
10357 const double *gamma_,
10358 double *sestpr,
10359 double *s,
10360 double *c
10361);
10362
10363/* Source: dlaisnan.f */
10364#define dlaisnan FORTRAN_WRAPPER(dlaisnan)
10365extern ptrdiff_t dlaisnan(
10366 const double *din1,
10367 const double *din2
10368);
10369
10370/* Source: dlaln2.f */
10371#define dlaln2 FORTRAN_WRAPPER(dlaln2)
10372extern void dlaln2(
10373 const ptrdiff_t *ltrans,
10374 const ptrdiff_t *na,
10375 const ptrdiff_t *nw,
10376 const double *smin,
10377 const double *ca,
10378 const double *a,
10379 const ptrdiff_t *lda,
10380 const double *d1,
10381 const double *d2,
10382 const double *b,
10383 const ptrdiff_t *ldb,
10384 const double *wr,
10385 const double *wi,
10386 double *x,
10387 const ptrdiff_t *ldx,
10388 double *scale,
10389 double *xnorm,
10390 ptrdiff_t *info
10391);
10392
10393/* Source: dlals0.f */
10394#define dlals0 FORTRAN_WRAPPER(dlals0)
10395extern void dlals0(
10396 const ptrdiff_t *icompq,
10397 const ptrdiff_t *nl,
10398 const ptrdiff_t *nr,
10399 const ptrdiff_t *sqre,
10400 const ptrdiff_t *nrhs,
10401 double *b,
10402 const ptrdiff_t *ldb,
10403 double *bx,
10404 const ptrdiff_t *ldbx,
10405 const ptrdiff_t *perm,
10406 const ptrdiff_t *givptr,
10407 const ptrdiff_t *givcol,
10408 const ptrdiff_t *ldgcol,
10409 const double *givnum,
10410 const ptrdiff_t *ldgnum,
10411 const double *poles,
10412 const double *difl,
10413 const double *difr,
10414 const double *z,
10415 const ptrdiff_t *k,
10416 const double *c,
10417 const double *s,
10418 double *work,
10419 ptrdiff_t *info
10420);
10421
10422/* Source: dlalsa.f */
10423#define dlalsa FORTRAN_WRAPPER(dlalsa)
10424extern void dlalsa(
10425 const ptrdiff_t *icompq,
10426 const ptrdiff_t *smlsiz,
10427 const ptrdiff_t *n,
10428 const ptrdiff_t *nrhs,
10429 double *b,
10430 const ptrdiff_t *ldb,
10431 double *bx,
10432 const ptrdiff_t *ldbx,
10433 const double *u,
10434 const ptrdiff_t *ldu,
10435 const double *vt,
10436 const ptrdiff_t *k,
10437 const double *difl,
10438 const double *difr,
10439 const double *z,
10440 const double *poles,
10441 const ptrdiff_t *givptr,
10442 const ptrdiff_t *givcol,
10443 const ptrdiff_t *ldgcol,
10444 const ptrdiff_t *perm,
10445 const double *givnum,
10446 const double *c,
10447 const double *s,
10448 double *work,
10449 ptrdiff_t *iwork,
10450 ptrdiff_t *info
10451);
10452
10453/* Source: dlalsd.f */
10454#define dlalsd FORTRAN_WRAPPER(dlalsd)
10455extern void dlalsd(
10456 const char *uplo,
10457 const ptrdiff_t *smlsiz,
10458 const ptrdiff_t *n,
10459 const ptrdiff_t *nrhs,
10460 double *d,
10461 double *e,
10462 double *b,
10463 const ptrdiff_t *ldb,
10464 const double *rcond,
10465 ptrdiff_t *rank,
10466 double *work,
10467 ptrdiff_t *iwork,
10468 ptrdiff_t *info
10469);
10470
10471/* Source: dlamrg.f */
10472#define dlamrg FORTRAN_WRAPPER(dlamrg)
10473extern void dlamrg(
10474 const ptrdiff_t *n1,
10475 const ptrdiff_t *n2,
10476 const double *a,
10477 const ptrdiff_t *dtrd1,
10478 const ptrdiff_t *dtrd2,
10479 ptrdiff_t *index
10480);
10481
10482/* Source: dlamswlq.f */
10483#define dlamswlq FORTRAN_WRAPPER(dlamswlq)
10484extern void dlamswlq(
10485 const char *side,
10486 const char *trans,
10487 const ptrdiff_t *m,
10488 const ptrdiff_t *n,
10489 const ptrdiff_t *k,
10490 const ptrdiff_t *mb,
10491 const ptrdiff_t *nb,
10492 double *a,
10493 const ptrdiff_t *lda,
10494 const double *t,
10495 const ptrdiff_t *ldt,
10496 double *c,
10497 const ptrdiff_t *ldc,
10498 double *work,
10499 const ptrdiff_t *lwork,
10500 ptrdiff_t *info
10501);
10502
10503/* Source: dlamtsqr.f */
10504#define dlamtsqr FORTRAN_WRAPPER(dlamtsqr)
10505extern void dlamtsqr(
10506 const char *side,
10507 const char *trans,
10508 const ptrdiff_t *m,
10509 const ptrdiff_t *n,
10510 const ptrdiff_t *k,
10511 const ptrdiff_t *mb,
10512 const ptrdiff_t *nb,
10513 double *a,
10514 const ptrdiff_t *lda,
10515 const double *t,
10516 const ptrdiff_t *ldt,
10517 double *c,
10518 const ptrdiff_t *ldc,
10519 double *work,
10520 const ptrdiff_t *lwork,
10521 ptrdiff_t *info
10522);
10523
10524/* Source: dlaneg.f */
10525#define dlaneg FORTRAN_WRAPPER(dlaneg)
10526extern ptrdiff_t dlaneg(
10527 const ptrdiff_t *n,
10528 const double *d,
10529 const double *lld,
10530 const double *sigma,
10531 const double *pivmin,
10532 const ptrdiff_t *r
10533);
10534
10535/* Source: dlangb.f */
10536#define dlangb FORTRAN_WRAPPER(dlangb)
10537extern double dlangb(
10538 const char *norm,
10539 const ptrdiff_t *n,
10540 const ptrdiff_t *kl,
10541 const ptrdiff_t *ku,
10542 const double *ab,
10543 const ptrdiff_t *ldab,
10544 double *work
10545);
10546
10547/* Source: dlange.f */
10548#define dlange FORTRAN_WRAPPER(dlange)
10549extern double dlange(
10550 const char *norm,
10551 const ptrdiff_t *m,
10552 const ptrdiff_t *n,
10553 const double *a,
10554 const ptrdiff_t *lda,
10555 double *work
10556);
10557
10558/* Source: dlangt.f */
10559#define dlangt FORTRAN_WRAPPER(dlangt)
10560extern double dlangt(
10561 const char *norm,
10562 const ptrdiff_t *n,
10563 const double *dl,
10564 const double *d,
10565 const double *du
10566);
10567
10568/* Source: dlanhs.f */
10569#define dlanhs FORTRAN_WRAPPER(dlanhs)
10570extern double dlanhs(
10571 const char *norm,
10572 const ptrdiff_t *n,
10573 const double *a,
10574 const ptrdiff_t *lda,
10575 double *work
10576);
10577
10578/* Source: dlansb.f */
10579#define dlansb FORTRAN_WRAPPER(dlansb)
10580extern double dlansb(
10581 const char *norm,
10582 const char *uplo,
10583 const ptrdiff_t *n,
10584 const ptrdiff_t *k,
10585 const double *ab,
10586 const ptrdiff_t *ldab,
10587 double *work
10588);
10589
10590/* Source: dlansf.f */
10591#define dlansf FORTRAN_WRAPPER(dlansf)
10592extern double dlansf(
10593 const char *norm,
10594 const char *transr,
10595 const char *uplo,
10596 const ptrdiff_t *n,
10597 const double *a,
10598 double *work
10599);
10600
10601/* Source: dlansp.f */
10602#define dlansp FORTRAN_WRAPPER(dlansp)
10603extern double dlansp(
10604 const char *norm,
10605 const char *uplo,
10606 const ptrdiff_t *n,
10607 const double *ap,
10608 double *work
10609);
10610
10611/* Source: dlanst.f */
10612#define dlanst FORTRAN_WRAPPER(dlanst)
10613extern double dlanst(
10614 const char *norm,
10615 const ptrdiff_t *n,
10616 const double *d,
10617 const double *e
10618);
10619
10620/* Source: dlansy.f */
10621#define dlansy FORTRAN_WRAPPER(dlansy)
10622extern double dlansy(
10623 const char *norm,
10624 const char *uplo,
10625 const ptrdiff_t *n,
10626 const double *a,
10627 const ptrdiff_t *lda,
10628 double *work
10629);
10630
10631/* Source: dlantb.f */
10632#define dlantb FORTRAN_WRAPPER(dlantb)
10633extern double dlantb(
10634 const char *norm,
10635 const char *uplo,
10636 const char *diag,
10637 const ptrdiff_t *n,
10638 const ptrdiff_t *k,
10639 const double *ab,
10640 const ptrdiff_t *ldab,
10641 double *work
10642);
10643
10644/* Source: dlantp.f */
10645#define dlantp FORTRAN_WRAPPER(dlantp)
10646extern double dlantp(
10647 const char *norm,
10648 const char *uplo,
10649 const char *diag,
10650 const ptrdiff_t *n,
10651 const double *ap,
10652 double *work
10653);
10654
10655/* Source: dlantr.f */
10656#define dlantr FORTRAN_WRAPPER(dlantr)
10657extern double dlantr(
10658 const char *norm,
10659 const char *uplo,
10660 const char *diag,
10661 const ptrdiff_t *m,
10662 const ptrdiff_t *n,
10663 const double *a,
10664 const ptrdiff_t *lda,
10665 double *work
10666);
10667
10668/* Source: dlanv2.f */
10669#define dlanv2 FORTRAN_WRAPPER(dlanv2)
10670extern void dlanv2(
10671 double *a,
10672 double *b,
10673 double *c,
10674 double *d,
10675 double *rt1r,
10676 double *rt1i,
10677 double *rt2r,
10678 double *rt2i,
10679 double *cs,
10680 double *sn
10681);
10682
10683/* Source: dlapll.f */
10684#define dlapll FORTRAN_WRAPPER(dlapll)
10685extern void dlapll(
10686 const ptrdiff_t *n,
10687 double *x,
10688 const ptrdiff_t *incx,
10689 double *y,
10690 const ptrdiff_t *incy,
10691 double *ssmin
10692);
10693
10694/* Source: dlapmr.f */
10695#define dlapmr FORTRAN_WRAPPER(dlapmr)
10696extern void dlapmr(
10697 const ptrdiff_t *forwrd,
10698 const ptrdiff_t *m,
10699 const ptrdiff_t *n,
10700 double *x,
10701 const ptrdiff_t *ldx,
10702 ptrdiff_t *k
10703);
10704
10705/* Source: dlapmt.f */
10706#define dlapmt FORTRAN_WRAPPER(dlapmt)
10707extern void dlapmt(
10708 const ptrdiff_t *forwrd,
10709 const ptrdiff_t *m,
10710 const ptrdiff_t *n,
10711 double *x,
10712 const ptrdiff_t *ldx,
10713 ptrdiff_t *k
10714);
10715
10716/* Source: dlapy2.f */
10717#define dlapy2 FORTRAN_WRAPPER(dlapy2)
10718extern double dlapy2(
10719 const double *x,
10720 const double *y
10721);
10722
10723/* Source: dlapy3.f */
10724#define dlapy3 FORTRAN_WRAPPER(dlapy3)
10725extern double dlapy3(
10726 const double *x,
10727 const double *y,
10728 const double *z
10729);
10730
10731/* Source: dlaqgb.f */
10732#define dlaqgb FORTRAN_WRAPPER(dlaqgb)
10733extern void dlaqgb(
10734 const ptrdiff_t *m,
10735 const ptrdiff_t *n,
10736 const ptrdiff_t *kl,
10737 const ptrdiff_t *ku,
10738 double *ab,
10739 const ptrdiff_t *ldab,
10740 const double *r,
10741 const double *c,
10742 const double *rowcnd,
10743 const double *colcnd,
10744 const double *amax,
10745 char *equed
10746);
10747
10748/* Source: dlaqge.f */
10749#define dlaqge FORTRAN_WRAPPER(dlaqge)
10750extern void dlaqge(
10751 const ptrdiff_t *m,
10752 const ptrdiff_t *n,
10753 double *a,
10754 const ptrdiff_t *lda,
10755 const double *r,
10756 const double *c,
10757 const double *rowcnd,
10758 const double *colcnd,
10759 const double *amax,
10760 char *equed
10761);
10762
10763/* Source: dlaqp2.f */
10764#define dlaqp2 FORTRAN_WRAPPER(dlaqp2)
10765extern void dlaqp2(
10766 const ptrdiff_t *m,
10767 const ptrdiff_t *n,
10768 const ptrdiff_t *offset,
10769 double *a,
10770 const ptrdiff_t *lda,
10771 ptrdiff_t *jpvt,
10772 double *tau,
10773 double *vn1,
10774 double *vn2,
10775 double *work
10776);
10777
10778/* Source: dlaqps.f */
10779#define dlaqps FORTRAN_WRAPPER(dlaqps)
10780extern void dlaqps(
10781 const ptrdiff_t *m,
10782 const ptrdiff_t *n,
10783 const ptrdiff_t *offset,
10784 const ptrdiff_t *nb,
10785 ptrdiff_t *kb,
10786 double *a,
10787 const ptrdiff_t *lda,
10788 ptrdiff_t *jpvt,
10789 double *tau,
10790 double *vn1,
10791 double *vn2,
10792 double *auxv,
10793 double *f,
10794 const ptrdiff_t *ldf
10795);
10796
10797/* Source: dlaqr0.f */
10798#define dlaqr0 FORTRAN_WRAPPER(dlaqr0)
10799extern void dlaqr0(
10800 const ptrdiff_t *wantt,
10801 const ptrdiff_t *wantz,
10802 const ptrdiff_t *n,
10803 const ptrdiff_t *ilo,
10804 const ptrdiff_t *ihi,
10805 double *h,
10806 const ptrdiff_t *ldh,
10807 double *wr,
10808 double *wi,
10809 const ptrdiff_t *iloz,
10810 const ptrdiff_t *ihiz,
10811 double *z,
10812 const ptrdiff_t *ldz,
10813 double *work,
10814 const ptrdiff_t *lwork,
10815 ptrdiff_t *info
10816);
10817
10818/* Source: dlaqr1.f */
10819#define dlaqr1 FORTRAN_WRAPPER(dlaqr1)
10820extern void dlaqr1(
10821 const ptrdiff_t *n,
10822 const double *h,
10823 const ptrdiff_t *ldh,
10824 const double *sr1,
10825 double *si1,
10826 double *sr2,
10827 double *si2,
10828 double *v
10829);
10830
10831/* Source: dlaqr2.f */
10832#define dlaqr2 FORTRAN_WRAPPER(dlaqr2)
10833extern void dlaqr2(
10834 const ptrdiff_t *wantt,
10835 const ptrdiff_t *wantz,
10836 const ptrdiff_t *n,
10837 const ptrdiff_t *ktop,
10838 const ptrdiff_t *kbot,
10839 const ptrdiff_t *nw,
10840 double *h,
10841 const ptrdiff_t *ldh,
10842 const ptrdiff_t *iloz,
10843 const ptrdiff_t *ihiz,
10844 double *z,
10845 const ptrdiff_t *ldz,
10846 ptrdiff_t *ns,
10847 ptrdiff_t *nd,
10848 double *sr,
10849 double *si,
10850 double *v,
10851 const ptrdiff_t *ldv,
10852 const ptrdiff_t *nh,
10853 double *t,
10854 const ptrdiff_t *ldt,
10855 const ptrdiff_t *nv,
10856 double *wv,
10857 const ptrdiff_t *ldwv,
10858 double *work,
10859 const ptrdiff_t *lwork
10860);
10861
10862/* Source: dlaqr3.f */
10863#define dlaqr3 FORTRAN_WRAPPER(dlaqr3)
10864extern void dlaqr3(
10865 const ptrdiff_t *wantt,
10866 const ptrdiff_t *wantz,
10867 const ptrdiff_t *n,
10868 const ptrdiff_t *ktop,
10869 const ptrdiff_t *kbot,
10870 const ptrdiff_t *nw,
10871 double *h,
10872 const ptrdiff_t *ldh,
10873 const ptrdiff_t *iloz,
10874 const ptrdiff_t *ihiz,
10875 double *z,
10876 const ptrdiff_t *ldz,
10877 ptrdiff_t *ns,
10878 ptrdiff_t *nd,
10879 double *sr,
10880 double *si,
10881 double *v,
10882 const ptrdiff_t *ldv,
10883 const ptrdiff_t *nh,
10884 double *t,
10885 const ptrdiff_t *ldt,
10886 const ptrdiff_t *nv,
10887 double *wv,
10888 const ptrdiff_t *ldwv,
10889 double *work,
10890 const ptrdiff_t *lwork
10891);
10892
10893/* Source: dlaqr4.f */
10894#define dlaqr4 FORTRAN_WRAPPER(dlaqr4)
10895extern void dlaqr4(
10896 const ptrdiff_t *wantt,
10897 const ptrdiff_t *wantz,
10898 const ptrdiff_t *n,
10899 const ptrdiff_t *ilo,
10900 const ptrdiff_t *ihi,
10901 double *h,
10902 const ptrdiff_t *ldh,
10903 double *wr,
10904 double *wi,
10905 const ptrdiff_t *iloz,
10906 const ptrdiff_t *ihiz,
10907 double *z,
10908 const ptrdiff_t *ldz,
10909 double *work,
10910 const ptrdiff_t *lwork,
10911 ptrdiff_t *info
10912);
10913
10914/* Source: dlaqr5.f */
10915#define dlaqr5 FORTRAN_WRAPPER(dlaqr5)
10916extern void dlaqr5(
10917 const ptrdiff_t *wantt,
10918 const ptrdiff_t *wantz,
10919 const ptrdiff_t *kacc22,
10920 const ptrdiff_t *n,
10921 const ptrdiff_t *ktop,
10922 const ptrdiff_t *kbot,
10923 const ptrdiff_t *nshfts,
10924 double *sr,
10925 double *si,
10926 double *h,
10927 const ptrdiff_t *ldh,
10928 const ptrdiff_t *iloz,
10929 const ptrdiff_t *ihiz,
10930 double *z,
10931 const ptrdiff_t *ldz,
10932 double *v,
10933 const ptrdiff_t *ldv,
10934 double *u,
10935 const ptrdiff_t *ldu,
10936 const ptrdiff_t *nv,
10937 double *wv,
10938 const ptrdiff_t *ldwv,
10939 const ptrdiff_t *nh,
10940 double *wh,
10941 const ptrdiff_t *ldwh
10942);
10943
10944/* Source: dlaqsb.f */
10945#define dlaqsb FORTRAN_WRAPPER(dlaqsb)
10946extern void dlaqsb(
10947 const char *uplo,
10948 const ptrdiff_t *n,
10949 const ptrdiff_t *kd,
10950 double *ab,
10951 const ptrdiff_t *ldab,
10952 const double *s,
10953 const double *scond,
10954 const double *amax,
10955 char *equed
10956);
10957
10958/* Source: dlaqsp.f */
10959#define dlaqsp FORTRAN_WRAPPER(dlaqsp)
10960extern void dlaqsp(
10961 const char *uplo,
10962 const ptrdiff_t *n,
10963 double *ap,
10964 const double *s,
10965 const double *scond,
10966 const double *amax,
10967 char *equed
10968);
10969
10970/* Source: dlaqsy.f */
10971#define dlaqsy FORTRAN_WRAPPER(dlaqsy)
10972extern void dlaqsy(
10973 const char *uplo,
10974 const ptrdiff_t *n,
10975 double *a,
10976 const ptrdiff_t *lda,
10977 const double *s,
10978 const double *scond,
10979 const double *amax,
10980 char *equed
10981);
10982
10983/* Source: dlaqtr.f */
10984#define dlaqtr FORTRAN_WRAPPER(dlaqtr)
10985extern void dlaqtr(
10986 const ptrdiff_t *ltran,
10987 const ptrdiff_t *lreal,
10988 const ptrdiff_t *n,
10989 const double *t,
10990 const ptrdiff_t *ldt,
10991 const double *b,
10992 const double *w,
10993 double *scale,
10994 double *x,
10995 double *work,
10996 ptrdiff_t *info
10997);
10998
10999/* Source: dlar1v.f */
11000#define dlar1v FORTRAN_WRAPPER(dlar1v)
11001extern void dlar1v(
11002 const ptrdiff_t *n,
11003 const ptrdiff_t *b1,
11004 const ptrdiff_t *bn,
11005 const double *lambda,
11006 const double *d,
11007 const double *l,
11008 const double *ld,
11009 const double *lld,
11010 const double *pivmin,
11011 const double *gaptol,
11012 double *z,
11013 const ptrdiff_t *wantnc,
11014 ptrdiff_t *negcnt,
11015 double *ztz,
11016 double *mingma,
11017 ptrdiff_t *r,
11018 ptrdiff_t *isuppz,
11019 double *nrminv,
11020 double *resid,
11021 double *rqcorr,
11022 double *work
11023);
11024
11025/* Source: dlar2v.f */
11026#define dlar2v FORTRAN_WRAPPER(dlar2v)
11027extern void dlar2v(
11028 const ptrdiff_t *n,
11029 double *x,
11030 double *y,
11031 double *z,
11032 const ptrdiff_t *incx,
11033 const double *c,
11034 const double *s,
11035 const ptrdiff_t *incc
11036);
11037
11038/* Source: dlarf.f */
11039#define dlarf FORTRAN_WRAPPER(dlarf)
11040extern void dlarf(
11041 const char *side,
11042 const ptrdiff_t *m,
11043 const ptrdiff_t *n,
11044 const double *v,
11045 const ptrdiff_t *incv,
11046 const double *tau,
11047 double *c,
11048 const ptrdiff_t *ldc,
11049 double *work
11050);
11051
11052/* Source: dlarfb.f */
11053#define dlarfb FORTRAN_WRAPPER(dlarfb)
11054extern void dlarfb(
11055 const char *side,
11056 const char *trans,
11057 const char *direct,
11058 const char *storev,
11059 const ptrdiff_t *m,
11060 const ptrdiff_t *n,
11061 const ptrdiff_t *k,
11062 const double *v,
11063 const ptrdiff_t *ldv,
11064 const double *t,
11065 const ptrdiff_t *ldt,
11066 double *c,
11067 const ptrdiff_t *ldc,
11068 double *work,
11069 const ptrdiff_t *ldwork
11070);
11071
11072/* Source: dlarfg.f */
11073#define dlarfg FORTRAN_WRAPPER(dlarfg)
11074extern void dlarfg(
11075 const ptrdiff_t *n,
11076 double *alpha,
11077 double *x,
11078 const ptrdiff_t *incx,
11079 double *tau
11080);
11081
11082/* Source: dlarfgp.f */
11083#define dlarfgp FORTRAN_WRAPPER(dlarfgp)
11084extern void dlarfgp(
11085 const ptrdiff_t *n,
11086 double *alpha,
11087 double *x,
11088 const ptrdiff_t *incx,
11089 double *tau
11090);
11091
11092/* Source: dlarft.f */
11093#define dlarft FORTRAN_WRAPPER(dlarft)
11094extern void dlarft(
11095 const char *direct,
11096 const char *storev,
11097 const ptrdiff_t *n,
11098 const ptrdiff_t *k,
11099 const double *v,
11100 const ptrdiff_t *ldv,
11101 const double *tau,
11102 double *t,
11103 const ptrdiff_t *ldt
11104);
11105
11106/* Source: dlarfx.f */
11107#define dlarfx FORTRAN_WRAPPER(dlarfx)
11108extern void dlarfx(
11109 const char *side,
11110 const ptrdiff_t *m,
11111 const ptrdiff_t *n,
11112 const double *v,
11113 const double *tau,
11114 double *c,
11115 const ptrdiff_t *ldc,
11116 double *work
11117);
11118
11119/* Source: dlarfy.f */
11120#define dlarfy FORTRAN_WRAPPER(dlarfy)
11121extern void dlarfy(
11122 char *uplo,
11123 ptrdiff_t *n,
11124 double *v,
11125 ptrdiff_t *incv,
11126 double *tau,
11127 double *c,
11128 ptrdiff_t *ldc,
11129 double *work
11130);
11131
11132/* Source: dlargv.f */
11133#define dlargv FORTRAN_WRAPPER(dlargv)
11134extern void dlargv(
11135 const ptrdiff_t *n,
11136 double *x,
11137 const ptrdiff_t *incx,
11138 double *y,
11139 const ptrdiff_t *incy,
11140 double *c,
11141 const ptrdiff_t *incc
11142);
11143
11144/* Source: dlarnv.f */
11145#define dlarnv FORTRAN_WRAPPER(dlarnv)
11146extern void dlarnv(
11147 const ptrdiff_t *idist,
11148 ptrdiff_t *iseed,
11149 const ptrdiff_t *n,
11150 double *x
11151);
11152
11153/* Source: dlarra.f */
11154#define dlarra FORTRAN_WRAPPER(dlarra)
11155extern void dlarra(
11156 const ptrdiff_t *n,
11157 const double *d,
11158 double *e,
11159 double *e2,
11160 const double *spltol,
11161 const double *tnrm,
11162 ptrdiff_t *nsplit,
11163 ptrdiff_t *isplit,
11164 ptrdiff_t *info
11165);
11166
11167/* Source: dlarrb.f */
11168#define dlarrb FORTRAN_WRAPPER(dlarrb)
11169extern void dlarrb(
11170 const ptrdiff_t *n,
11171 const double *d,
11172 const double *lld,
11173 const ptrdiff_t *ifirst,
11174 const ptrdiff_t *ilast,
11175 const double *rtol1,
11176 const double *rtol2,
11177 const ptrdiff_t *offset,
11178 double *w,
11179 double *wgap,
11180 double *werr,
11181 double *work,
11182 ptrdiff_t *iwork,
11183 const double *pivmin,
11184 const double *spdiam,
11185 const ptrdiff_t *twist,
11186 ptrdiff_t *info
11187);
11188
11189/* Source: dlarrc.f */
11190#define dlarrc FORTRAN_WRAPPER(dlarrc)
11191extern void dlarrc(
11192 const char *jobt,
11193 const ptrdiff_t *n,
11194 const double *vl,
11195 const double *vu,
11196 const double *d,
11197 const double *e,
11198 const double *pivmin,
11199 ptrdiff_t *eigcnt,
11200 ptrdiff_t *lcnt,
11201 ptrdiff_t *rcnt,
11202 ptrdiff_t *info
11203);
11204
11205/* Source: dlarrd.f */
11206#define dlarrd FORTRAN_WRAPPER(dlarrd)
11207extern void dlarrd(
11208 const char *range,
11209 const char *order,
11210 const ptrdiff_t *n,
11211 const double *vl,
11212 const double *vu,
11213 const ptrdiff_t *il,
11214 const ptrdiff_t *iu,
11215 const double *gers,
11216 const double *reltol,
11217 const double *d,
11218 const double *e,
11219 const double *e2,
11220 const double *pivmin,
11221 const ptrdiff_t *nsplit,
11222 const ptrdiff_t *isplit,
11223 ptrdiff_t *m,
11224 double *w,
11225 double *werr,
11226 double *wl,
11227 double *wu,
11228 ptrdiff_t *iblock,
11229 ptrdiff_t *indexw,
11230 double *work,
11231 ptrdiff_t *iwork,
11232 ptrdiff_t *info
11233);
11234
11235/* Source: dlarre.f */
11236#define dlarre FORTRAN_WRAPPER(dlarre)
11237extern void dlarre(
11238 const char *range,
11239 const ptrdiff_t *n,
11240 double *vl,
11241 double *vu,
11242 const ptrdiff_t *il,
11243 const ptrdiff_t *iu,
11244 double *d,
11245 double *e,
11246 double *e2,
11247 const double *rtol1,
11248 const double *rtol2,
11249 const double *spltol,
11250 ptrdiff_t *nsplit,
11251 ptrdiff_t *isplit,
11252 ptrdiff_t *m,
11253 double *w,
11254 double *werr,
11255 double *wgap,
11256 ptrdiff_t *iblock,
11257 ptrdiff_t *indexw,
11258 double *gers,
11259 double *pivmin,
11260 double *work,
11261 ptrdiff_t *iwork,
11262 ptrdiff_t *info
11263);
11264
11265/* Source: dlarrf.f */
11266#define dlarrf FORTRAN_WRAPPER(dlarrf)
11267extern void dlarrf(
11268 const ptrdiff_t *n,
11269 const double *d,
11270 const double *l,
11271 const double *ld,
11272 const ptrdiff_t *clstrt,
11273 const ptrdiff_t *clend,
11274 const double *w,
11275 double *wgap,
11276 const double *werr,
11277 const double *spdiam,
11278 const double *clgapl,
11279 double *clgapr,
11280 const double *pivmin,
11281 double *sigma,
11282 double *dplus,
11283 double *lplus,
11284 double *work,
11285 ptrdiff_t *info
11286);
11287
11288/* Source: dlarrj.f */
11289#define dlarrj FORTRAN_WRAPPER(dlarrj)
11290extern void dlarrj(
11291 const ptrdiff_t *n,
11292 const double *d,
11293 const double *e2,
11294 const ptrdiff_t *ifirst,
11295 const ptrdiff_t *ilast,
11296 const double *rtol,
11297 const ptrdiff_t *offset,
11298 double *w,
11299 double *werr,
11300 double *work,
11301 ptrdiff_t *iwork,
11302 const double *pivmin,
11303 const double *spdiam,
11304 ptrdiff_t *info
11305);
11306
11307/* Source: dlarrk.f */
11308#define dlarrk FORTRAN_WRAPPER(dlarrk)
11309extern void dlarrk(
11310 const ptrdiff_t *n,
11311 const ptrdiff_t *iw,
11312 const double *gl,
11313 const double *gu,
11314 const double *d,
11315 const double *e2,
11316 const double *pivmin,
11317 const double *reltol,
11318 double *w,
11319 double *werr,
11320 ptrdiff_t *info
11321);
11322
11323/* Source: dlarrr.f */
11324#define dlarrr FORTRAN_WRAPPER(dlarrr)
11325extern void dlarrr(
11326 const ptrdiff_t *n,
11327 const double *d,
11328 double *e,
11329 ptrdiff_t *info
11330);
11331
11332/* Source: dlarrv.f */
11333#define dlarrv FORTRAN_WRAPPER(dlarrv)
11334extern void dlarrv(
11335 const ptrdiff_t *n,
11336 const double *vl,
11337 const double *vu,
11338 double *d,
11339 double *l,
11340 double *pivmin,
11341 const ptrdiff_t *isplit,
11342 const ptrdiff_t *m,
11343 const ptrdiff_t *dol,
11344 const ptrdiff_t *dou,
11345 const double *minrgp,
11346 const double *rtol1,
11347 const double *rtol2,
11348 double *w,
11349 double *werr,
11350 double *wgap,
11351 const ptrdiff_t *iblock,
11352 const ptrdiff_t *indexw,
11353 const double *gers,
11354 double *z,
11355 const ptrdiff_t *ldz,
11356 ptrdiff_t *isuppz,
11357 double *work,
11358 ptrdiff_t *iwork,
11359 ptrdiff_t *info
11360);
11361
11362/* Source: dlartg.f */
11363#define dlartg FORTRAN_WRAPPER(dlartg)
11364extern void dlartg(
11365 const double *f,
11366 const double *g,
11367 double *cs,
11368 double *sn,
11369 double *r
11370);
11371
11372/* Source: dlartgp.f */
11373#define dlartgp FORTRAN_WRAPPER(dlartgp)
11374extern void dlartgp(
11375 double *f,
11376 double *g,
11377 double *cs,
11378 double *sn,
11379 double *r
11380);
11381
11382/* Source: dlartgs.f */
11383#define dlartgs FORTRAN_WRAPPER(dlartgs)
11384extern void dlartgs(
11385 const double *x,
11386 const double *y,
11387 const double *sigma,
11388 double *cs,
11389 double *sn
11390);
11391
11392/* Source: dlartv.f */
11393#define dlartv FORTRAN_WRAPPER(dlartv)
11394extern void dlartv(
11395 const ptrdiff_t *n,
11396 double *x,
11397 const ptrdiff_t *incx,
11398 double *y,
11399 const ptrdiff_t *incy,
11400 const double *c,
11401 const double *s,
11402 const ptrdiff_t *incc
11403);
11404
11405/* Source: dlaruv.f */
11406#define dlaruv FORTRAN_WRAPPER(dlaruv)
11407extern void dlaruv(
11408 ptrdiff_t *iseed,
11409 const ptrdiff_t *n,
11410 double *x
11411);
11412
11413/* Source: dlarz.f */
11414#define dlarz FORTRAN_WRAPPER(dlarz)
11415extern void dlarz(
11416 const char *side,
11417 const ptrdiff_t *m,
11418 const ptrdiff_t *n,
11419 const ptrdiff_t *l,
11420 const double *v,
11421 const ptrdiff_t *incv,
11422 const double *tau,
11423 double *c,
11424 const ptrdiff_t *ldc,
11425 double *work
11426);
11427
11428/* Source: dlarzb.f */
11429#define dlarzb FORTRAN_WRAPPER(dlarzb)
11430extern void dlarzb(
11431 const char *side,
11432 const char *trans,
11433 const char *direct,
11434 const char *storev,
11435 const ptrdiff_t *m,
11436 const ptrdiff_t *n,
11437 const ptrdiff_t *k,
11438 const ptrdiff_t *l,
11439 const double *v,
11440 const ptrdiff_t *ldv,
11441 const double *t,
11442 const ptrdiff_t *ldt,
11443 double *c,
11444 const ptrdiff_t *ldc,
11445 double *work,
11446 const ptrdiff_t *ldwork
11447);
11448
11449/* Source: dlarzt.f */
11450#define dlarzt FORTRAN_WRAPPER(dlarzt)
11451extern void dlarzt(
11452 const char *direct,
11453 const char *storev,
11454 const ptrdiff_t *n,
11455 const ptrdiff_t *k,
11456 double *v,
11457 const ptrdiff_t *ldv,
11458 const double *tau,
11459 double *t,
11460 const ptrdiff_t *ldt
11461);
11462
11463/* Source: dlas2.f */
11464#define dlas2 FORTRAN_WRAPPER(dlas2)
11465extern void dlas2(
11466 const double *f,
11467 const double *g,
11468 const double *h,
11469 double *ssmin,
11470 double *ssmax
11471);
11472
11473/* Source: dlascl.f */
11474#define dlascl FORTRAN_WRAPPER(dlascl)
11475extern void dlascl(
11476 const char *type,
11477 const ptrdiff_t *kl,
11478 const ptrdiff_t *ku,
11479 const double *cfrom,
11480 const double *cto,
11481 const ptrdiff_t *m,
11482 const ptrdiff_t *n,
11483 double *a,
11484 const ptrdiff_t *lda,
11485 ptrdiff_t *info
11486);
11487
11488/* Source: dlasd0.f */
11489#define dlasd0 FORTRAN_WRAPPER(dlasd0)
11490extern void dlasd0(
11491 const ptrdiff_t *n,
11492 const ptrdiff_t *sqre,
11493 double *d,
11494 const double *e,
11495 double *u,
11496 const ptrdiff_t *ldu,
11497 double *vt,
11498 const ptrdiff_t *ldvt,
11499 const ptrdiff_t *smlsiz,
11500 ptrdiff_t *iwork,
11501 double *work,
11502 ptrdiff_t *info
11503);
11504
11505/* Source: dlasd1.f */
11506#define dlasd1 FORTRAN_WRAPPER(dlasd1)
11507extern void dlasd1(
11508 const ptrdiff_t *nl,
11509 const ptrdiff_t *nr,
11510 const ptrdiff_t *sqre,
11511 double *d,
11512 double *alpha,
11513 double *beta,
11514 double *u,
11515 const ptrdiff_t *ldu,
11516 double *vt,
11517 const ptrdiff_t *ldvt,
11518 ptrdiff_t *idxq,
11519 ptrdiff_t *iwork,
11520 double *work,
11521 ptrdiff_t *info
11522);
11523
11524/* Source: dlasd2.f */
11525#define dlasd2 FORTRAN_WRAPPER(dlasd2)
11526extern void dlasd2(
11527 const ptrdiff_t *nl,
11528 const ptrdiff_t *nr,
11529 const ptrdiff_t *sqre,
11530 ptrdiff_t *k,
11531 double *d,
11532 double *z,
11533 const double *alpha,
11534 const double *beta,
11535 double *u,
11536 const ptrdiff_t *ldu,
11537 double *vt,
11538 const ptrdiff_t *ldvt,
11539 double *dsigma,
11540 double *u2,
11541 const ptrdiff_t *ldu2,
11542 double *vt2,
11543 const ptrdiff_t *ldvt2,
11544 ptrdiff_t *idxp,
11545 ptrdiff_t *idx,
11546 ptrdiff_t *idxc,
11547 ptrdiff_t *idxq,
11548 ptrdiff_t *coltyp,
11549 ptrdiff_t *info
11550);
11551
11552/* Source: dlasd3.f */
11553#define dlasd3 FORTRAN_WRAPPER(dlasd3)
11554extern void dlasd3(
11555 const ptrdiff_t *nl,
11556 const ptrdiff_t *nr,
11557 const ptrdiff_t *sqre,
11558 const ptrdiff_t *k,
11559 double *d,
11560 double *q,
11561 const ptrdiff_t *ldq,
11562 const double *dsigma,
11563 double *u,
11564 const ptrdiff_t *ldu,
11565 double *u2,
11566 const ptrdiff_t *ldu2,
11567 double *vt,
11568 const ptrdiff_t *ldvt,
11569 double *vt2,
11570 const ptrdiff_t *ldvt2,
11571 const ptrdiff_t *idxc,
11572 const ptrdiff_t *ctot,
11573 const double *z,
11574 ptrdiff_t *info
11575);
11576
11577/* Source: dlasd4.f */
11578#define dlasd4 FORTRAN_WRAPPER(dlasd4)
11579extern void dlasd4(
11580 const ptrdiff_t *n,
11581 const ptrdiff_t *i,
11582 const double *d,
11583 const double *z,
11584 double *delta,
11585 const double *rho,
11586 double *sigma,
11587 double *work,
11588 ptrdiff_t *info
11589);
11590
11591/* Source: dlasd5.f */
11592#define dlasd5 FORTRAN_WRAPPER(dlasd5)
11593extern void dlasd5(
11594 const ptrdiff_t *i,
11595 const double *d,
11596 const double *z,
11597 double *delta,
11598 const double *rho,
11599 double *dsigma,
11600 double *work
11601);
11602
11603/* Source: dlasd6.f */
11604#define dlasd6 FORTRAN_WRAPPER(dlasd6)
11605extern void dlasd6(
11606 const ptrdiff_t *icompq,
11607 const ptrdiff_t *nl,
11608 const ptrdiff_t *nr,
11609 const ptrdiff_t *sqre,
11610 double *d,
11611 double *vf,
11612 double *vl,
11613 double *alpha,
11614 double *beta,
11615 ptrdiff_t *idxq,
11616 ptrdiff_t *perm,
11617 ptrdiff_t *givptr,
11618 ptrdiff_t *givcol,
11619 const ptrdiff_t *ldgcol,
11620 double *givnum,
11621 const ptrdiff_t *ldgnum,
11622 double *poles,
11623 double *difl,
11624 double *difr,
11625 double *z,
11626 ptrdiff_t *k,
11627 double *c,
11628 double *s,
11629 double *work,
11630 ptrdiff_t *iwork,
11631 ptrdiff_t *info
11632);
11633
11634/* Source: dlasd7.f */
11635#define dlasd7 FORTRAN_WRAPPER(dlasd7)
11636extern void dlasd7(
11637 const ptrdiff_t *icompq,
11638 const ptrdiff_t *nl,
11639 const ptrdiff_t *nr,
11640 const ptrdiff_t *sqre,
11641 ptrdiff_t *k,
11642 double *d,
11643 double *z,
11644 double *zw,
11645 double *vf,
11646 double *vfw,
11647 double *vl,
11648 double *vlw,
11649 const double *alpha,
11650 const double *beta,
11651 double *dsigma,
11652 ptrdiff_t *idx,
11653 ptrdiff_t *idxp,
11654 const ptrdiff_t *idxq,
11655 ptrdiff_t *perm,
11656 ptrdiff_t *givptr,
11657 ptrdiff_t *givcol,
11658 const ptrdiff_t *ldgcol,
11659 double *givnum,
11660 const ptrdiff_t *ldgnum,
11661 double *c,
11662 double *s,
11663 ptrdiff_t *info
11664);
11665
11666/* Source: dlasd8.f */
11667#define dlasd8 FORTRAN_WRAPPER(dlasd8)
11668extern void dlasd8(
11669 const ptrdiff_t *icompq,
11670 const ptrdiff_t *k,
11671 double *d,
11672 double *z,
11673 double *vf,
11674 double *vl,
11675 double *difl,
11676 double *difr,
11677 const ptrdiff_t *lddifr,
11678 double *dsigma,
11679 double *work,
11680 ptrdiff_t *info
11681);
11682
11683/* Source: dlasda.f */
11684#define dlasda FORTRAN_WRAPPER(dlasda)
11685extern void dlasda(
11686 const ptrdiff_t *icompq,
11687 const ptrdiff_t *smlsiz,
11688 const ptrdiff_t *n,
11689 const ptrdiff_t *sqre,
11690 double *d,
11691 const double *e,
11692 double *u,
11693 const ptrdiff_t *ldu,
11694 double *vt,
11695 ptrdiff_t *k,
11696 double *difl,
11697 double *difr,
11698 double *z,
11699 double *poles,
11700 ptrdiff_t *givptr,
11701 ptrdiff_t *givcol,
11702 const ptrdiff_t *ldgcol,
11703 ptrdiff_t *perm,
11704 double *givnum,
11705 double *c,
11706 double *s,
11707 double *work,
11708 ptrdiff_t *iwork,
11709 ptrdiff_t *info
11710);
11711
11712/* Source: dlasdq.f */
11713#define dlasdq FORTRAN_WRAPPER(dlasdq)
11714extern void dlasdq(
11715 const char *uplo,
11716 const ptrdiff_t *sqre,
11717 const ptrdiff_t *n,
11718 const ptrdiff_t *ncvt,
11719 const ptrdiff_t *nru,
11720 const ptrdiff_t *ncc,
11721 double *d,
11722 double *e,
11723 double *vt,
11724 const ptrdiff_t *ldvt,
11725 double *u,
11726 const ptrdiff_t *ldu,
11727 double *c,
11728 const ptrdiff_t *ldc,
11729 double *work,
11730 ptrdiff_t *info
11731);
11732
11733/* Source: dlasdt.f */
11734#define dlasdt FORTRAN_WRAPPER(dlasdt)
11735extern void dlasdt(
11736 const ptrdiff_t *n,
11737 ptrdiff_t *lvl,
11738 ptrdiff_t *nd,
11739 ptrdiff_t *inode,
11740 ptrdiff_t *ndiml,
11741 ptrdiff_t *ndimr,
11742 const ptrdiff_t *msub
11743);
11744
11745/* Source: dlaset.f */
11746#define dlaset FORTRAN_WRAPPER(dlaset)
11747extern void dlaset(
11748 const char *uplo,
11749 const ptrdiff_t *m,
11750 const ptrdiff_t *n,
11751 const double *alpha,
11752 const double *beta,
11753 double *a,
11754 const ptrdiff_t *lda
11755);
11756
11757/* Source: dlasq1.f */
11758#define dlasq1 FORTRAN_WRAPPER(dlasq1)
11759extern void dlasq1(
11760 const ptrdiff_t *n,
11761 double *d,
11762 double *e,
11763 double *work,
11764 ptrdiff_t *info
11765);
11766
11767/* Source: dlasq2.f */
11768#define dlasq2 FORTRAN_WRAPPER(dlasq2)
11769extern void dlasq2(
11770 const ptrdiff_t *n,
11771 double *z,
11772 ptrdiff_t *info
11773);
11774
11775/* Source: dlasq3.f */
11776#define dlasq3 FORTRAN_WRAPPER(dlasq3)
11777extern void dlasq3(
11778 const ptrdiff_t *i0,
11779 const ptrdiff_t *n0,
11780 const double *z,
11781 ptrdiff_t *pp,
11782 double *dmin,
11783 double *sigma,
11784 double *desig,
11785 const double *qmax,
11786 ptrdiff_t *nfail,
11787 ptrdiff_t *iter,
11788 ptrdiff_t *ndiv,
11789 const ptrdiff_t *ieee,
11790 ptrdiff_t *ttype,
11791 double *dmin1,
11792 double *dmin2,
11793 double *dn,
11794 double *dn1,
11795 double *dn2,
11796 double *g,
11797 double *tau
11798);
11799
11800/* Source: dlasq4.f */
11801#define dlasq4 FORTRAN_WRAPPER(dlasq4)
11802extern void dlasq4(
11803 const ptrdiff_t *i0,
11804 const ptrdiff_t *n0,
11805 const double *z,
11806 const ptrdiff_t *pp,
11807 ptrdiff_t *n0in,
11808 const double *dmin,
11809 const double *dmin1,
11810 const double *dmin2,
11811 const double *dn,
11812 const double *dn1,
11813 const double *dn2,
11814 double *tau,
11815 ptrdiff_t *ttype,
11816 double *g
11817);
11818
11819/* Source: dlasq5.f */
11820#define dlasq5 FORTRAN_WRAPPER(dlasq5)
11821extern void dlasq5(
11822 const ptrdiff_t *i0,
11823 const ptrdiff_t *n0,
11824 const double *z,
11825 const ptrdiff_t *pp,
11826 const double *tau,
11827 const double *sigma,
11828 double *dmin,
11829 double *dmin1,
11830 double *dmin2,
11831 double *dn,
11832 double *dnm1,
11833 double *dnm2,
11834 const ptrdiff_t *ieee,
11835 const double *eps
11836);
11837
11838/* Source: dlasq6.f */
11839#define dlasq6 FORTRAN_WRAPPER(dlasq6)
11840extern void dlasq6(
11841 const ptrdiff_t *i0,
11842 const ptrdiff_t *n0,
11843 const double *z,
11844 const ptrdiff_t *pp,
11845 double *dmin,
11846 double *dmin1,
11847 double *dmin2,
11848 double *dn,
11849 double *dnm1,
11850 double *dnm2
11851);
11852
11853/* Source: dlasr.f */
11854#define dlasr FORTRAN_WRAPPER(dlasr)
11855extern void dlasr(
11856 const char *side,
11857 const char *pivot,
11858 const char *direct,
11859 const ptrdiff_t *m,
11860 const ptrdiff_t *n,
11861 const double *c,
11862 const double *s,
11863 double *a,
11864 const ptrdiff_t *lda
11865);
11866
11867/* Source: dlasrt.f */
11868#define dlasrt FORTRAN_WRAPPER(dlasrt)
11869extern void dlasrt(
11870 const char *id,
11871 const ptrdiff_t *n,
11872 double *d,
11873 ptrdiff_t *info
11874);
11875
11876/* Source: dlassq.f */
11877#define dlassq FORTRAN_WRAPPER(dlassq)
11878extern void dlassq(
11879 const ptrdiff_t *n,
11880 const double *x,
11881 const ptrdiff_t *incx,
11882 double *scale,
11883 double *sumsq
11884);
11885
11886/* Source: dlasv2.f */
11887#define dlasv2 FORTRAN_WRAPPER(dlasv2)
11888extern void dlasv2(
11889 const double *f,
11890 const double *g,
11891 const double *h,
11892 double *ssmin,
11893 double *ssmax,
11894 double *snr,
11895 double *csr,
11896 double *snl,
11897 double *csl
11898);
11899
11900/* Source: dlaswlq.f */
11901#define dlaswlq FORTRAN_WRAPPER(dlaswlq)
11902extern void dlaswlq(
11903 const ptrdiff_t *m,
11904 const ptrdiff_t *n,
11905 const ptrdiff_t *mb,
11906 const ptrdiff_t *nb,
11907 double *a,
11908 const ptrdiff_t *lda,
11909 double *t,
11910 const ptrdiff_t *ldt,
11911 double *work,
11912 const ptrdiff_t *lwork,
11913 ptrdiff_t *info
11914);
11915
11916/* Source: dlaswp.f */
11917#define dlaswp FORTRAN_WRAPPER(dlaswp)
11918extern void dlaswp(
11919 const ptrdiff_t *n,
11920 double *a,
11921 const ptrdiff_t *lda,
11922 const ptrdiff_t *k1,
11923 const ptrdiff_t *k2,
11924 const ptrdiff_t *ipiv,
11925 const ptrdiff_t *incx
11926);
11927
11928/* Source: dlasy2.f */
11929#define dlasy2 FORTRAN_WRAPPER(dlasy2)
11930extern void dlasy2(
11931 const ptrdiff_t *ltranl,
11932 const ptrdiff_t *ltranr,
11933 const ptrdiff_t *isgn,
11934 const ptrdiff_t *n1,
11935 const ptrdiff_t *n2,
11936 const double *tl,
11937 const ptrdiff_t *ldtl,
11938 const double *tr,
11939 const ptrdiff_t *ldtr,
11940 const double *b,
11941 const ptrdiff_t *ldb,
11942 double *scale,
11943 double *x,
11944 const ptrdiff_t *ldx,
11945 double *xnorm,
11946 ptrdiff_t *info
11947);
11948
11949/* Source: dlasyf.f */
11950#define dlasyf FORTRAN_WRAPPER(dlasyf)
11951extern void dlasyf(
11952 const char *uplo,
11953 const ptrdiff_t *n,
11954 const ptrdiff_t *nb,
11955 ptrdiff_t *kb,
11956 double *a,
11957 const ptrdiff_t *lda,
11958 ptrdiff_t *ipiv,
11959 double *w,
11960 const ptrdiff_t *ldw,
11961 ptrdiff_t *info
11962);
11963
11964/* Source: dlasyf_aa.f */
11965#define dlasyf_aa FORTRAN_WRAPPER(dlasyf_aa)
11966extern void dlasyf_aa(
11967 const char *uplo,
11968 const ptrdiff_t *j1_,
11969 const ptrdiff_t *m,
11970 const ptrdiff_t *nb,
11971 double *a,
11972 const ptrdiff_t *lda,
11973 ptrdiff_t *ipiv,
11974 double *h,
11975 const ptrdiff_t *ldh,
11976 double *work,
11977 ptrdiff_t *info
11978);
11979
11980/* Source: dlasyf_rk.f */
11981#define dlasyf_rk FORTRAN_WRAPPER(dlasyf_rk)
11982extern void dlasyf_rk(
11983 char *uplo,
11984 ptrdiff_t *n,
11985 ptrdiff_t *nb,
11986 ptrdiff_t *kb,
11987 double *a,
11988 ptrdiff_t *lda,
11989 double *e,
11990 ptrdiff_t *ipiv,
11991 double *w,
11992 ptrdiff_t *ldw,
11993 ptrdiff_t *info
11994);
11995
11996/* Source: dlasyf_rook.f */
11997#define dlasyf_rook FORTRAN_WRAPPER(dlasyf_rook)
11998extern void dlasyf_rook(
11999 const char *uplo,
12000 const ptrdiff_t *n,
12001 const ptrdiff_t *nb,
12002 ptrdiff_t *kb,
12003 double *a,
12004 const ptrdiff_t *lda,
12005 ptrdiff_t *ipiv,
12006 double *w,
12007 const ptrdiff_t *ldw,
12008 ptrdiff_t *info
12009);
12010
12011/* Source: dlat2s.f */
12012#define dlat2s FORTRAN_WRAPPER(dlat2s)
12013extern void dlat2s(
12014 const char *uplo,
12015 const ptrdiff_t *n,
12016 const double *a,
12017 const ptrdiff_t *lda,
12018 float *sa,
12019 const ptrdiff_t *ldsa,
12020 ptrdiff_t *info
12021);
12022
12023/* Source: dlatbs.f */
12024#define dlatbs FORTRAN_WRAPPER(dlatbs)
12025extern void dlatbs(
12026 const char *uplo,
12027 const char *trans,
12028 const char *diag,
12029 const char *normin,
12030 const ptrdiff_t *n,
12031 const ptrdiff_t *kd,
12032 const double *ab,
12033 const ptrdiff_t *ldab,
12034 double *x,
12035 double *scale,
12036 double *cnorm,
12037 ptrdiff_t *info
12038);
12039
12040/* Source: dlatdf.f */
12041#define dlatdf FORTRAN_WRAPPER(dlatdf)
12042extern void dlatdf(
12043 const ptrdiff_t *ijob,
12044 const ptrdiff_t *n,
12045 const double *z,
12046 const ptrdiff_t *ldz,
12047 double *rhs,
12048 double *rdsum,
12049 double *rdscal,
12050 const ptrdiff_t *ipiv,
12051 const ptrdiff_t *jpiv
12052);
12053
12054/* Source: dlatps.f */
12055#define dlatps FORTRAN_WRAPPER(dlatps)
12056extern void dlatps(
12057 const char *uplo,
12058 const char *trans,
12059 const char *diag,
12060 const char *normin,
12061 const ptrdiff_t *n,
12062 const double *ap,
12063 double *x,
12064 double *scale,
12065 double *cnorm,
12066 ptrdiff_t *info
12067);
12068
12069/* Source: dlatrd.f */
12070#define dlatrd FORTRAN_WRAPPER(dlatrd)
12071extern void dlatrd(
12072 const char *uplo,
12073 const ptrdiff_t *n,
12074 const ptrdiff_t *nb,
12075 double *a,
12076 const ptrdiff_t *lda,
12077 double *e,
12078 double *tau,
12079 double *w,
12080 const ptrdiff_t *ldw
12081);
12082
12083/* Source: dlatrs.f */
12084#define dlatrs FORTRAN_WRAPPER(dlatrs)
12085extern void dlatrs(
12086 const char *uplo,
12087 const char *trans,
12088 const char *diag,
12089 const char *normin,
12090 const ptrdiff_t *n,
12091 const double *a,
12092 const ptrdiff_t *lda,
12093 double *x,
12094 double *scale,
12095 double *cnorm,
12096 ptrdiff_t *info
12097);
12098
12099/* Source: dlatrz.f */
12100#define dlatrz FORTRAN_WRAPPER(dlatrz)
12101extern void dlatrz(
12102 const ptrdiff_t *m,
12103 const ptrdiff_t *n,
12104 const ptrdiff_t *l,
12105 double *a,
12106 const ptrdiff_t *lda,
12107 double *tau,
12108 double *work
12109);
12110
12111/* Source: dlatsqr.f */
12112#define dlatsqr FORTRAN_WRAPPER(dlatsqr)
12113extern void dlatsqr(
12114 const ptrdiff_t *m,
12115 const ptrdiff_t *n,
12116 const ptrdiff_t *mb,
12117 const ptrdiff_t *nb,
12118 double *a,
12119 const ptrdiff_t *lda,
12120 double *t,
12121 const ptrdiff_t *ldt,
12122 double *work,
12123 const ptrdiff_t *lwork,
12124 ptrdiff_t *info
12125);
12126
12127/* Source: dlauu2.f */
12128#define dlauu2 FORTRAN_WRAPPER(dlauu2)
12129extern void dlauu2(
12130 const char *uplo,
12131 const ptrdiff_t *n,
12132 double *a,
12133 const ptrdiff_t *lda,
12134 ptrdiff_t *info
12135);
12136
12137/* Source: dlauum.f */
12138#define dlauum FORTRAN_WRAPPER(dlauum)
12139extern void dlauum(
12140 const char *uplo,
12141 const ptrdiff_t *n,
12142 double *a,
12143 const ptrdiff_t *lda,
12144 ptrdiff_t *info
12145);
12146
12147/* Source: dopgtr.f */
12148#define dopgtr FORTRAN_WRAPPER(dopgtr)
12149extern void dopgtr(
12150 const char *uplo,
12151 const ptrdiff_t *n,
12152 const double *ap,
12153 const double *tau,
12154 double *q,
12155 const ptrdiff_t *ldq,
12156 double *work,
12157 ptrdiff_t *info
12158);
12159
12160/* Source: dopmtr.f */
12161#define dopmtr FORTRAN_WRAPPER(dopmtr)
12162extern void dopmtr(
12163 const char *side,
12164 const char *uplo,
12165 const char *trans,
12166 const ptrdiff_t *m,
12167 const ptrdiff_t *n,
12168 const double *ap,
12169 const double *tau,
12170 double *c,
12171 const ptrdiff_t *ldc,
12172 double *work,
12173 ptrdiff_t *info
12174);
12175
12176/* Source: dorbdb.f */
12177#define dorbdb FORTRAN_WRAPPER(dorbdb)
12178extern void dorbdb(
12179 const char *trans,
12180 const char *signs,
12181 const ptrdiff_t *m,
12182 const ptrdiff_t *p,
12183 const ptrdiff_t *q,
12184 double *x11,
12185 const ptrdiff_t *ldx11,
12186 double *x12,
12187 const ptrdiff_t *ldx12,
12188 double *x21,
12189 const ptrdiff_t *ldx21,
12190 double *x22,
12191 const ptrdiff_t *ldx22,
12192 double *theta,
12193 double *phi,
12194 double *taup1,
12195 double *taup2,
12196 double *tauq1,
12197 double *tauq2,
12198 double *work,
12199 const ptrdiff_t *lwork,
12200 ptrdiff_t *info
12201);
12202
12203/* Source: dorbdb1.f */
12204#define dorbdb1 FORTRAN_WRAPPER(dorbdb1)
12205extern void dorbdb1(
12206 const ptrdiff_t *m,
12207 const ptrdiff_t *p,
12208 const ptrdiff_t *q,
12209 double *x11,
12210 const ptrdiff_t *ldx11,
12211 double *x21,
12212 const ptrdiff_t *ldx21,
12213 double *theta,
12214 double *phi,
12215 double *taup1,
12216 double *taup2,
12217 double *tauq1,
12218 double *work,
12219 const ptrdiff_t *lwork,
12220 ptrdiff_t *info
12221);
12222
12223/* Source: dorbdb2.f */
12224#define dorbdb2 FORTRAN_WRAPPER(dorbdb2)
12225extern void dorbdb2(
12226 const ptrdiff_t *m,
12227 const ptrdiff_t *p,
12228 const ptrdiff_t *q,
12229 double *x11,
12230 const ptrdiff_t *ldx11,
12231 double *x21,
12232 const ptrdiff_t *ldx21,
12233 double *theta,
12234 double *phi,
12235 double *taup1,
12236 double *taup2,
12237 double *tauq1,
12238 double *work,
12239 const ptrdiff_t *lwork,
12240 ptrdiff_t *info
12241);
12242
12243/* Source: dorbdb3.f */
12244#define dorbdb3 FORTRAN_WRAPPER(dorbdb3)
12245extern void dorbdb3(
12246 const ptrdiff_t *m,
12247 const ptrdiff_t *p,
12248 const ptrdiff_t *q,
12249 double *x11,
12250 const ptrdiff_t *ldx11,
12251 double *x21,
12252 const ptrdiff_t *ldx21,
12253 double *theta,
12254 double *phi,
12255 double *taup1,
12256 double *taup2,
12257 double *tauq1,
12258 double *work,
12259 const ptrdiff_t *lwork,
12260 ptrdiff_t *info
12261);
12262
12263/* Source: dorbdb4.f */
12264#define dorbdb4 FORTRAN_WRAPPER(dorbdb4)
12265extern void dorbdb4(
12266 const ptrdiff_t *m,
12267 const ptrdiff_t *p,
12268 const ptrdiff_t *q,
12269 double *x11,
12270 const ptrdiff_t *ldx11,
12271 double *x21,
12272 const ptrdiff_t *ldx21,
12273 double *theta,
12274 double *phi,
12275 double *taup1,
12276 double *taup2,
12277 double *tauq1,
12278 double *phantom,
12279 double *work,
12280 const ptrdiff_t *lwork,
12281 ptrdiff_t *info
12282);
12283
12284/* Source: dorbdb5.f */
12285#define dorbdb5 FORTRAN_WRAPPER(dorbdb5)
12286extern void dorbdb5(
12287 const ptrdiff_t *m1,
12288 const ptrdiff_t *m2,
12289 const ptrdiff_t *n,
12290 double *x1,
12291 const ptrdiff_t *incx1,
12292 double *x2,
12293 const ptrdiff_t *incx2,
12294 double *q1,
12295 const ptrdiff_t *ldq1,
12296 double *q2,
12297 const ptrdiff_t *ldq2,
12298 double *work,
12299 const ptrdiff_t *lwork,
12300 ptrdiff_t *info
12301);
12302
12303/* Source: dorbdb6.f */
12304#define dorbdb6 FORTRAN_WRAPPER(dorbdb6)
12305extern void dorbdb6(
12306 const ptrdiff_t *m1,
12307 const ptrdiff_t *m2,
12308 const ptrdiff_t *n,
12309 double *x1,
12310 const ptrdiff_t *incx1,
12311 double *x2,
12312 const ptrdiff_t *incx2,
12313 double *q1,
12314 const ptrdiff_t *ldq1,
12315 double *q2,
12316 const ptrdiff_t *ldq2,
12317 double *work,
12318 const ptrdiff_t *lwork,
12319 ptrdiff_t *info
12320);
12321
12322/* Source: dorcsd.f */
12323#define dorcsd FORTRAN_WRAPPER(dorcsd)
12324extern void dorcsd(
12325 const char *jobu1,
12326 const char *jobu2,
12327 const char *jobv1t,
12328 const char *jobv2t,
12329 const char *trans,
12330 const char *signs,
12331 const ptrdiff_t *m,
12332 const ptrdiff_t *p,
12333 const ptrdiff_t *q,
12334 double *x11,
12335 const ptrdiff_t *ldx11,
12336 double *x12,
12337 const ptrdiff_t *ldx12,
12338 double *x21,
12339 const ptrdiff_t *ldx21,
12340 double *x22,
12341 const ptrdiff_t *ldx22,
12342 double *theta,
12343 double *u1,
12344 const ptrdiff_t *ldu1,
12345 double *u2,
12346 const ptrdiff_t *ldu2,
12347 double *v1t,
12348 const ptrdiff_t *ldv1t,
12349 double *v2t,
12350 const ptrdiff_t *ldv2t,
12351 double *work,
12352 const ptrdiff_t *lwork,
12353 ptrdiff_t *iwork,
12354 ptrdiff_t *info
12355);
12356
12357/* Source: dorcsd2by1.f */
12358#define dorcsd2by1 FORTRAN_WRAPPER(dorcsd2by1)
12359extern void dorcsd2by1(
12360 const char *jobu1,
12361 const char *jobu2,
12362 const char *jobv1t,
12363 const ptrdiff_t *m,
12364 const ptrdiff_t *p,
12365 const ptrdiff_t *q,
12366 double *x11,
12367 const ptrdiff_t *ldx11,
12368 double *x21,
12369 const ptrdiff_t *ldx21,
12370 double *theta,
12371 double *u1,
12372 const ptrdiff_t *ldu1,
12373 double *u2,
12374 const ptrdiff_t *ldu2,
12375 double *v1t,
12376 const ptrdiff_t *ldv1t,
12377 double *work,
12378 const ptrdiff_t *lwork,
12379 ptrdiff_t *iwork,
12380 ptrdiff_t *info
12381);
12382
12383/* Source: dorg2l.f */
12384#define dorg2l FORTRAN_WRAPPER(dorg2l)
12385extern void dorg2l(
12386 const ptrdiff_t *m,
12387 const ptrdiff_t *n,
12388 const ptrdiff_t *k,
12389 double *a,
12390 const ptrdiff_t *lda,
12391 const double *tau,
12392 double *work,
12393 ptrdiff_t *info
12394);
12395
12396/* Source: dorg2r.f */
12397#define dorg2r FORTRAN_WRAPPER(dorg2r)
12398extern void dorg2r(
12399 const ptrdiff_t *m,
12400 const ptrdiff_t *n,
12401 const ptrdiff_t *k,
12402 double *a,
12403 const ptrdiff_t *lda,
12404 const double *tau,
12405 double *work,
12406 ptrdiff_t *info
12407);
12408
12409/* Source: dorgbr.f */
12410#define dorgbr FORTRAN_WRAPPER(dorgbr)
12411extern void dorgbr(
12412 const char *vect,
12413 const ptrdiff_t *m,
12414 const ptrdiff_t *n,
12415 const ptrdiff_t *k,
12416 double *a,
12417 const ptrdiff_t *lda,
12418 const double *tau,
12419 double *work,
12420 const ptrdiff_t *lwork,
12421 ptrdiff_t *info
12422);
12423
12424/* Source: dorghr.f */
12425#define dorghr FORTRAN_WRAPPER(dorghr)
12426extern void dorghr(
12427 const ptrdiff_t *n,
12428 const ptrdiff_t *ilo,
12429 const ptrdiff_t *ihi,
12430 double *a,
12431 const ptrdiff_t *lda,
12432 const double *tau,
12433 double *work,
12434 const ptrdiff_t *lwork,
12435 ptrdiff_t *info
12436);
12437
12438/* Source: dorgl2.f */
12439#define dorgl2 FORTRAN_WRAPPER(dorgl2)
12440extern void dorgl2(
12441 const ptrdiff_t *m,
12442 const ptrdiff_t *n,
12443 const ptrdiff_t *k,
12444 double *a,
12445 const ptrdiff_t *lda,
12446 const double *tau,
12447 double *work,
12448 ptrdiff_t *info
12449);
12450
12451/* Source: dorglq.f */
12452#define dorglq FORTRAN_WRAPPER(dorglq)
12453extern void dorglq(
12454 const ptrdiff_t *m,
12455 const ptrdiff_t *n,
12456 const ptrdiff_t *k,
12457 double *a,
12458 const ptrdiff_t *lda,
12459 const double *tau,
12460 double *work,
12461 const ptrdiff_t *lwork,
12462 ptrdiff_t *info
12463);
12464
12465/* Source: dorgql.f */
12466#define dorgql FORTRAN_WRAPPER(dorgql)
12467extern void dorgql(
12468 const ptrdiff_t *m,
12469 const ptrdiff_t *n,
12470 const ptrdiff_t *k,
12471 double *a,
12472 const ptrdiff_t *lda,
12473 const double *tau,
12474 double *work,
12475 const ptrdiff_t *lwork,
12476 ptrdiff_t *info
12477);
12478
12479/* Source: dorgqr.f */
12480#define dorgqr FORTRAN_WRAPPER(dorgqr)
12481extern void dorgqr(
12482 const ptrdiff_t *m,
12483 const ptrdiff_t *n,
12484 const ptrdiff_t *k,
12485 double *a,
12486 const ptrdiff_t *lda,
12487 const double *tau,
12488 double *work,
12489 const ptrdiff_t *lwork,
12490 ptrdiff_t *info
12491);
12492
12493/* Source: dorgr2.f */
12494#define dorgr2 FORTRAN_WRAPPER(dorgr2)
12495extern void dorgr2(
12496 const ptrdiff_t *m,
12497 const ptrdiff_t *n,
12498 const ptrdiff_t *k,
12499 double *a,
12500 const ptrdiff_t *lda,
12501 const double *tau,
12502 double *work,
12503 ptrdiff_t *info
12504);
12505
12506/* Source: dorgrq.f */
12507#define dorgrq FORTRAN_WRAPPER(dorgrq)
12508extern void dorgrq(
12509 const ptrdiff_t *m,
12510 const ptrdiff_t *n,
12511 const ptrdiff_t *k,
12512 double *a,
12513 const ptrdiff_t *lda,
12514 const double *tau,
12515 double *work,
12516 const ptrdiff_t *lwork,
12517 ptrdiff_t *info
12518);
12519
12520/* Source: dorgtr.f */
12521#define dorgtr FORTRAN_WRAPPER(dorgtr)
12522extern void dorgtr(
12523 const char *uplo,
12524 const ptrdiff_t *n,
12525 double *a,
12526 const ptrdiff_t *lda,
12527 const double *tau,
12528 double *work,
12529 const ptrdiff_t *lwork,
12530 ptrdiff_t *info
12531);
12532
12533/* Source: dorm22.f */
12534#define dorm22 FORTRAN_WRAPPER(dorm22)
12535extern void dorm22(
12536 const char *side,
12537 const char *trans,
12538 const ptrdiff_t *m,
12539 const ptrdiff_t *n,
12540 const ptrdiff_t *n1,
12541 const ptrdiff_t *n2,
12542 const double *q,
12543 const ptrdiff_t *ldq,
12544 double *c,
12545 const ptrdiff_t *ldc,
12546 double *work,
12547 const ptrdiff_t *lwork,
12548 ptrdiff_t *info
12549);
12550
12551/* Source: dorm2l.f */
12552#define dorm2l FORTRAN_WRAPPER(dorm2l)
12553extern void dorm2l(
12554 const char *side,
12555 const char *trans,
12556 const ptrdiff_t *m,
12557 const ptrdiff_t *n,
12558 const ptrdiff_t *k,
12559 const double *a,
12560 const ptrdiff_t *lda,
12561 const double *tau,
12562 double *c,
12563 const ptrdiff_t *ldc,
12564 double *work,
12565 ptrdiff_t *info
12566);
12567
12568/* Source: dorm2r.f */
12569#define dorm2r FORTRAN_WRAPPER(dorm2r)
12570extern void dorm2r(
12571 const char *side,
12572 const char *trans,
12573 const ptrdiff_t *m,
12574 const ptrdiff_t *n,
12575 const ptrdiff_t *k,
12576 const double *a,
12577 const ptrdiff_t *lda,
12578 const double *tau,
12579 double *c,
12580 const ptrdiff_t *ldc,
12581 double *work,
12582 ptrdiff_t *info
12583);
12584
12585/* Source: dormbr.f */
12586#define dormbr FORTRAN_WRAPPER(dormbr)
12587extern void dormbr(
12588 const char *vect,
12589 const char *side,
12590 const char *trans,
12591 const ptrdiff_t *m,
12592 const ptrdiff_t *n,
12593 const ptrdiff_t *k,
12594 const double *a,
12595 const ptrdiff_t *lda,
12596 const double *tau,
12597 double *c,
12598 const ptrdiff_t *ldc,
12599 double *work,
12600 const ptrdiff_t *lwork,
12601 ptrdiff_t *info
12602);
12603
12604/* Source: dormhr.f */
12605#define dormhr FORTRAN_WRAPPER(dormhr)
12606extern void dormhr(
12607 const char *side,
12608 const char *trans,
12609 const ptrdiff_t *m,
12610 const ptrdiff_t *n,
12611 const ptrdiff_t *ilo,
12612 const ptrdiff_t *ihi,
12613 const double *a,
12614 const ptrdiff_t *lda,
12615 const double *tau,
12616 double *c,
12617 const ptrdiff_t *ldc,
12618 double *work,
12619 const ptrdiff_t *lwork,
12620 ptrdiff_t *info
12621);
12622
12623/* Source: dorml2.f */
12624#define dorml2 FORTRAN_WRAPPER(dorml2)
12625extern void dorml2(
12626 const char *side,
12627 const char *trans,
12628 const ptrdiff_t *m,
12629 const ptrdiff_t *n,
12630 const ptrdiff_t *k,
12631 const double *a,
12632 const ptrdiff_t *lda,
12633 const double *tau,
12634 double *c,
12635 const ptrdiff_t *ldc,
12636 double *work,
12637 ptrdiff_t *info
12638);
12639
12640/* Source: dormlq.f */
12641#define dormlq FORTRAN_WRAPPER(dormlq)
12642extern void dormlq(
12643 const char *side,
12644 const char *trans,
12645 const ptrdiff_t *m,
12646 const ptrdiff_t *n,
12647 const ptrdiff_t *k,
12648 const double *a,
12649 const ptrdiff_t *lda,
12650 const double *tau,
12651 double *c,
12652 const ptrdiff_t *ldc,
12653 double *work,
12654 const ptrdiff_t *lwork,
12655 ptrdiff_t *info
12656);
12657
12658/* Source: dormql.f */
12659#define dormql FORTRAN_WRAPPER(dormql)
12660extern void dormql(
12661 const char *side,
12662 const char *trans,
12663 const ptrdiff_t *m,
12664 const ptrdiff_t *n,
12665 const ptrdiff_t *k,
12666 const double *a,
12667 const ptrdiff_t *lda,
12668 const double *tau,
12669 double *c,
12670 const ptrdiff_t *ldc,
12671 double *work,
12672 const ptrdiff_t *lwork,
12673 ptrdiff_t *info
12674);
12675
12676/* Source: dormqr.f */
12677#define dormqr FORTRAN_WRAPPER(dormqr)
12678extern void dormqr(
12679 const char *side,
12680 const char *trans,
12681 const ptrdiff_t *m,
12682 const ptrdiff_t *n,
12683 const ptrdiff_t *k,
12684 const double *a,
12685 const ptrdiff_t *lda,
12686 const double *tau,
12687 double *c,
12688 const ptrdiff_t *ldc,
12689 double *work,
12690 const ptrdiff_t *lwork,
12691 ptrdiff_t *info
12692);
12693
12694/* Source: dormr2.f */
12695#define dormr2 FORTRAN_WRAPPER(dormr2)
12696extern void dormr2(
12697 const char *side,
12698 const char *trans,
12699 const ptrdiff_t *m,
12700 const ptrdiff_t *n,
12701 const ptrdiff_t *k,
12702 const double *a,
12703 const ptrdiff_t *lda,
12704 const double *tau,
12705 double *c,
12706 const ptrdiff_t *ldc,
12707 double *work,
12708 ptrdiff_t *info
12709);
12710
12711/* Source: dormr3.f */
12712#define dormr3 FORTRAN_WRAPPER(dormr3)
12713extern void dormr3(
12714 const char *side,
12715 const char *trans,
12716 const ptrdiff_t *m,
12717 const ptrdiff_t *n,
12718 const ptrdiff_t *k,
12719 const ptrdiff_t *l,
12720 const double *a,
12721 const ptrdiff_t *lda,
12722 const double *tau,
12723 double *c,
12724 const ptrdiff_t *ldc,
12725 double *work,
12726 ptrdiff_t *info
12727);
12728
12729/* Source: dormrq.f */
12730#define dormrq FORTRAN_WRAPPER(dormrq)
12731extern void dormrq(
12732 const char *side,
12733 const char *trans,
12734 const ptrdiff_t *m,
12735 const ptrdiff_t *n,
12736 const ptrdiff_t *k,
12737 const double *a,
12738 const ptrdiff_t *lda,
12739 const double *tau,
12740 double *c,
12741 const ptrdiff_t *ldc,
12742 double *work,
12743 const ptrdiff_t *lwork,
12744 ptrdiff_t *info
12745);
12746
12747/* Source: dormrz.f */
12748#define dormrz FORTRAN_WRAPPER(dormrz)
12749extern void dormrz(
12750 const char *side,
12751 const char *trans,
12752 const ptrdiff_t *m,
12753 const ptrdiff_t *n,
12754 const ptrdiff_t *k,
12755 const ptrdiff_t *l,
12756 const double *a,
12757 const ptrdiff_t *lda,
12758 const double *tau,
12759 double *c,
12760 const ptrdiff_t *ldc,
12761 double *work,
12762 const ptrdiff_t *lwork,
12763 ptrdiff_t *info
12764);
12765
12766/* Source: dormtr.f */
12767#define dormtr FORTRAN_WRAPPER(dormtr)
12768extern void dormtr(
12769 const char *side,
12770 const char *uplo,
12771 const char *trans,
12772 const ptrdiff_t *m,
12773 const ptrdiff_t *n,
12774 const double *a,
12775 const ptrdiff_t *lda,
12776 const double *tau,
12777 double *c,
12778 const ptrdiff_t *ldc,
12779 double *work,
12780 const ptrdiff_t *lwork,
12781 ptrdiff_t *info
12782);
12783
12784/* Source: dpbcon.f */
12785#define dpbcon FORTRAN_WRAPPER(dpbcon)
12786extern void dpbcon(
12787 const char *uplo,
12788 const ptrdiff_t *n,
12789 const ptrdiff_t *kd,
12790 const double *ab,
12791 const ptrdiff_t *ldab,
12792 const double *anorm,
12793 double *rcond,
12794 double *work,
12795 ptrdiff_t *iwork,
12796 ptrdiff_t *info
12797);
12798
12799/* Source: dpbequ.f */
12800#define dpbequ FORTRAN_WRAPPER(dpbequ)
12801extern void dpbequ(
12802 const char *uplo,
12803 const ptrdiff_t *n,
12804 const ptrdiff_t *kd,
12805 const double *ab,
12806 const ptrdiff_t *ldab,
12807 double *s,
12808 double *scond,
12809 double *amax,
12810 ptrdiff_t *info
12811);
12812
12813/* Source: dpbrfs.f */
12814#define dpbrfs FORTRAN_WRAPPER(dpbrfs)
12815extern void dpbrfs(
12816 const char *uplo,
12817 const ptrdiff_t *n,
12818 const ptrdiff_t *kd,
12819 const ptrdiff_t *nrhs,
12820 const double *ab,
12821 const ptrdiff_t *ldab,
12822 const double *afb,
12823 const ptrdiff_t *ldafb,
12824 const double *b,
12825 const ptrdiff_t *ldb,
12826 double *x,
12827 const ptrdiff_t *ldx,
12828 double *ferr,
12829 double *berr,
12830 double *work,
12831 ptrdiff_t *iwork,
12832 ptrdiff_t *info
12833);
12834
12835/* Source: dpbstf.f */
12836#define dpbstf FORTRAN_WRAPPER(dpbstf)
12837extern void dpbstf(
12838 const char *uplo,
12839 const ptrdiff_t *n,
12840 const ptrdiff_t *kd,
12841 double *ab,
12842 const ptrdiff_t *ldab,
12843 ptrdiff_t *info
12844);
12845
12846/* Source: dpbsv.f */
12847#define dpbsv FORTRAN_WRAPPER(dpbsv)
12848extern void dpbsv(
12849 const char *uplo,
12850 const ptrdiff_t *n,
12851 const ptrdiff_t *kd,
12852 const ptrdiff_t *nrhs,
12853 double *ab,
12854 const ptrdiff_t *ldab,
12855 double *b,
12856 const ptrdiff_t *ldb,
12857 ptrdiff_t *info
12858);
12859
12860/* Source: dpbsvx.f */
12861#define dpbsvx FORTRAN_WRAPPER(dpbsvx)
12862extern void dpbsvx(
12863 const char *fact,
12864 const char *uplo,
12865 const ptrdiff_t *n,
12866 const ptrdiff_t *kd,
12867 const ptrdiff_t *nrhs,
12868 double *ab,
12869 const ptrdiff_t *ldab,
12870 double *afb,
12871 const ptrdiff_t *ldafb,
12872 char *equed,
12873 double *s,
12874 double *b,
12875 const ptrdiff_t *ldb,
12876 double *x,
12877 const ptrdiff_t *ldx,
12878 double *rcond,
12879 double *ferr,
12880 double *berr,
12881 double *work,
12882 ptrdiff_t *iwork,
12883 ptrdiff_t *info
12884);
12885
12886/* Source: dpbtf2.f */
12887#define dpbtf2 FORTRAN_WRAPPER(dpbtf2)
12888extern void dpbtf2(
12889 const char *uplo,
12890 const ptrdiff_t *n,
12891 const ptrdiff_t *kd,
12892 double *ab,
12893 const ptrdiff_t *ldab,
12894 ptrdiff_t *info
12895);
12896
12897/* Source: dpbtrf.f */
12898#define dpbtrf FORTRAN_WRAPPER(dpbtrf)
12899extern void dpbtrf(
12900 const char *uplo,
12901 const ptrdiff_t *n,
12902 const ptrdiff_t *kd,
12903 double *ab,
12904 const ptrdiff_t *ldab,
12905 ptrdiff_t *info
12906);
12907
12908/* Source: dpbtrs.f */
12909#define dpbtrs FORTRAN_WRAPPER(dpbtrs)
12910extern void dpbtrs(
12911 const char *uplo,
12912 const ptrdiff_t *n,
12913 const ptrdiff_t *kd,
12914 const ptrdiff_t *nrhs,
12915 const double *ab,
12916 const ptrdiff_t *ldab,
12917 double *b,
12918 const ptrdiff_t *ldb,
12919 ptrdiff_t *info
12920);
12921
12922/* Source: dpftrf.f */
12923#define dpftrf FORTRAN_WRAPPER(dpftrf)
12924extern void dpftrf(
12925 const char *transr,
12926 const char *uplo,
12927 const ptrdiff_t *n,
12928 double *a,
12929 ptrdiff_t *info
12930);
12931
12932/* Source: dpftri.f */
12933#define dpftri FORTRAN_WRAPPER(dpftri)
12934extern void dpftri(
12935 const char *transr,
12936 const char *uplo,
12937 const ptrdiff_t *n,
12938 double *a,
12939 ptrdiff_t *info
12940);
12941
12942/* Source: dpftrs.f */
12943#define dpftrs FORTRAN_WRAPPER(dpftrs)
12944extern void dpftrs(
12945 const char *transr,
12946 const char *uplo,
12947 const ptrdiff_t *n,
12948 const ptrdiff_t *nrhs,
12949 const double *a,
12950 double *b,
12951 const ptrdiff_t *ldb,
12952 ptrdiff_t *info
12953);
12954
12955/* Source: dpocon.f */
12956#define dpocon FORTRAN_WRAPPER(dpocon)
12957extern void dpocon(
12958 const char *uplo,
12959 const ptrdiff_t *n,
12960 const double *a,
12961 const ptrdiff_t *lda,
12962 const double *anorm,
12963 double *rcond,
12964 double *work,
12965 ptrdiff_t *iwork,
12966 ptrdiff_t *info
12967);
12968
12969/* Source: dpoequ.f */
12970#define dpoequ FORTRAN_WRAPPER(dpoequ)
12971extern void dpoequ(
12972 const ptrdiff_t *n,
12973 const double *a,
12974 const ptrdiff_t *lda,
12975 double *s,
12976 double *scond,
12977 double *amax,
12978 ptrdiff_t *info
12979);
12980
12981/* Source: dpoequb.f */
12982#define dpoequb FORTRAN_WRAPPER(dpoequb)
12983extern void dpoequb(
12984 const ptrdiff_t *n,
12985 const double *a,
12986 const ptrdiff_t *lda,
12987 double *s,
12988 double *scond,
12989 double *amax,
12990 ptrdiff_t *info
12991);
12992
12993/* Source: dporfs.f */
12994#define dporfs FORTRAN_WRAPPER(dporfs)
12995extern void dporfs(
12996 const char *uplo,
12997 const ptrdiff_t *n,
12998 const ptrdiff_t *nrhs,
12999 const double *a,
13000 const ptrdiff_t *lda,
13001 const double *af,
13002 const ptrdiff_t *ldaf,
13003 const double *b,
13004 const ptrdiff_t *ldb,
13005 double *x,
13006 const ptrdiff_t *ldx,
13007 double *ferr,
13008 double *berr,
13009 double *work,
13010 ptrdiff_t *iwork,
13011 ptrdiff_t *info
13012);
13013
13014/* Source: dposv.f */
13015#define dposv FORTRAN_WRAPPER(dposv)
13016extern void dposv(
13017 const char *uplo,
13018 const ptrdiff_t *n,
13019 const ptrdiff_t *nrhs,
13020 double *a,
13021 const ptrdiff_t *lda,
13022 double *b,
13023 const ptrdiff_t *ldb,
13024 ptrdiff_t *info
13025);
13026
13027/* Source: dposvx.f */
13028#define dposvx FORTRAN_WRAPPER(dposvx)
13029extern void dposvx(
13030 const char *fact,
13031 const char *uplo,
13032 const ptrdiff_t *n,
13033 const ptrdiff_t *nrhs,
13034 double *a,
13035 const ptrdiff_t *lda,
13036 double *af,
13037 const ptrdiff_t *ldaf,
13038 char *equed,
13039 double *s,
13040 double *b,
13041 const ptrdiff_t *ldb,
13042 double *x,
13043 const ptrdiff_t *ldx,
13044 double *rcond,
13045 double *ferr,
13046 double *berr,
13047 double *work,
13048 ptrdiff_t *iwork,
13049 ptrdiff_t *info
13050);
13051
13052/* Source: dpotf2.f */
13053#define dpotf2 FORTRAN_WRAPPER(dpotf2)
13054extern void dpotf2(
13055 const char *uplo,
13056 const ptrdiff_t *n,
13057 double *a,
13058 const ptrdiff_t *lda,
13059 ptrdiff_t *info
13060);
13061
13062/* Source: dpotrf.f */
13063#define dpotrf FORTRAN_WRAPPER(dpotrf)
13064extern void dpotrf(
13065 const char *uplo,
13066 const ptrdiff_t *n,
13067 double *a,
13068 const ptrdiff_t *lda,
13069 ptrdiff_t *info
13070);
13071
13072/* Source: dpotrf2.f */
13073#define dpotrf2 FORTRAN_WRAPPER(dpotrf2)
13074extern void dpotrf2(
13075 const char *uplo,
13076 const ptrdiff_t *n,
13077 double *a,
13078 const ptrdiff_t *lda,
13079 ptrdiff_t *info
13080);
13081
13082/* Source: dpotri.f */
13083#define dpotri FORTRAN_WRAPPER(dpotri)
13084extern void dpotri(
13085 const char *uplo,
13086 const ptrdiff_t *n,
13087 double *a,
13088 const ptrdiff_t *lda,
13089 ptrdiff_t *info
13090);
13091
13092/* Source: dpotrs.f */
13093#define dpotrs FORTRAN_WRAPPER(dpotrs)
13094extern void dpotrs(
13095 const char *uplo,
13096 const ptrdiff_t *n,
13097 const ptrdiff_t *nrhs,
13098 const double *a,
13099 const ptrdiff_t *lda,
13100 double *b,
13101 const ptrdiff_t *ldb,
13102 ptrdiff_t *info
13103);
13104
13105/* Source: dppcon.f */
13106#define dppcon FORTRAN_WRAPPER(dppcon)
13107extern void dppcon(
13108 const char *uplo,
13109 const ptrdiff_t *n,
13110 const double *ap,
13111 const double *anorm,
13112 double *rcond,
13113 double *work,
13114 ptrdiff_t *iwork,
13115 ptrdiff_t *info
13116);
13117
13118/* Source: dppequ.f */
13119#define dppequ FORTRAN_WRAPPER(dppequ)
13120extern void dppequ(
13121 const char *uplo,
13122 const ptrdiff_t *n,
13123 const double *ap,
13124 double *s,
13125 double *scond,
13126 double *amax,
13127 ptrdiff_t *info
13128);
13129
13130/* Source: dpprfs.f */
13131#define dpprfs FORTRAN_WRAPPER(dpprfs)
13132extern void dpprfs(
13133 const char *uplo,
13134 const ptrdiff_t *n,
13135 const ptrdiff_t *nrhs,
13136 const double *ap,
13137 const double *afp,
13138 const double *b,
13139 const ptrdiff_t *ldb,
13140 double *x,
13141 const ptrdiff_t *ldx,
13142 double *ferr,
13143 double *berr,
13144 double *work,
13145 ptrdiff_t *iwork,
13146 ptrdiff_t *info
13147);
13148
13149/* Source: dppsv.f */
13150#define dppsv FORTRAN_WRAPPER(dppsv)
13151extern void dppsv(
13152 const char *uplo,
13153 const ptrdiff_t *n,
13154 const ptrdiff_t *nrhs,
13155 double *ap,
13156 double *b,
13157 const ptrdiff_t *ldb,
13158 ptrdiff_t *info
13159);
13160
13161/* Source: dppsvx.f */
13162#define dppsvx FORTRAN_WRAPPER(dppsvx)
13163extern void dppsvx(
13164 const char *fact,
13165 const char *uplo,
13166 const ptrdiff_t *n,
13167 const ptrdiff_t *nrhs,
13168 double *ap,
13169 double *afp,
13170 char *equed,
13171 double *s,
13172 double *b,
13173 const ptrdiff_t *ldb,
13174 double *x,
13175 const ptrdiff_t *ldx,
13176 double *rcond,
13177 double *ferr,
13178 double *berr,
13179 double *work,
13180 ptrdiff_t *iwork,
13181 ptrdiff_t *info
13182);
13183
13184/* Source: dpptrf.f */
13185#define dpptrf FORTRAN_WRAPPER(dpptrf)
13186extern void dpptrf(
13187 const char *uplo,
13188 const ptrdiff_t *n,
13189 double *ap,
13190 ptrdiff_t *info
13191);
13192
13193/* Source: dpptri.f */
13194#define dpptri FORTRAN_WRAPPER(dpptri)
13195extern void dpptri(
13196 const char *uplo,
13197 const ptrdiff_t *n,
13198 double *ap,
13199 ptrdiff_t *info
13200);
13201
13202/* Source: dpptrs.f */
13203#define dpptrs FORTRAN_WRAPPER(dpptrs)
13204extern void dpptrs(
13205 const char *uplo,
13206 const ptrdiff_t *n,
13207 const ptrdiff_t *nrhs,
13208 const double *ap,
13209 double *b,
13210 const ptrdiff_t *ldb,
13211 ptrdiff_t *info
13212);
13213
13214/* Source: dpstf2.f */
13215#define dpstf2 FORTRAN_WRAPPER(dpstf2)
13216extern void dpstf2(
13217 const char *uplo,
13218 const ptrdiff_t *n,
13219 double *a,
13220 const ptrdiff_t *lda,
13221 ptrdiff_t *piv,
13222 ptrdiff_t *rank,
13223 const double *tol,
13224 double *work,
13225 ptrdiff_t *info
13226);
13227
13228/* Source: dpstrf.f */
13229#define dpstrf FORTRAN_WRAPPER(dpstrf)
13230extern void dpstrf(
13231 const char *uplo,
13232 const ptrdiff_t *n,
13233 double *a,
13234 const ptrdiff_t *lda,
13235 ptrdiff_t *piv,
13236 ptrdiff_t *rank,
13237 const double *tol,
13238 double *work,
13239 ptrdiff_t *info
13240);
13241
13242/* Source: dptcon.f */
13243#define dptcon FORTRAN_WRAPPER(dptcon)
13244extern void dptcon(
13245 const ptrdiff_t *n,
13246 const double *d,
13247 const double *e,
13248 const double *anorm,
13249 double *rcond,
13250 double *work,
13251 ptrdiff_t *info
13252);
13253
13254/* Source: dpteqr.f */
13255#define dpteqr FORTRAN_WRAPPER(dpteqr)
13256extern void dpteqr(
13257 const char *compz,
13258 const ptrdiff_t *n,
13259 double *d,
13260 double *e,
13261 double *z,
13262 const ptrdiff_t *ldz,
13263 double *work,
13264 ptrdiff_t *info
13265);
13266
13267/* Source: dptrfs.f */
13268#define dptrfs FORTRAN_WRAPPER(dptrfs)
13269extern void dptrfs(
13270 const ptrdiff_t *n,
13271 const ptrdiff_t *nrhs,
13272 const double *d,
13273 const double *e,
13274 const double *df,
13275 const double *ef,
13276 const double *b,
13277 const ptrdiff_t *ldb,
13278 double *x,
13279 const ptrdiff_t *ldx,
13280 double *ferr,
13281 double *berr,
13282 double *work,
13283 ptrdiff_t *info
13284);
13285
13286/* Source: dptsv.f */
13287#define dptsv FORTRAN_WRAPPER(dptsv)
13288extern void dptsv(
13289 const ptrdiff_t *n,
13290 const ptrdiff_t *nrhs,
13291 double *d,
13292 double *e,
13293 double *b,
13294 const ptrdiff_t *ldb,
13295 ptrdiff_t *info
13296);
13297
13298/* Source: dptsvx.f */
13299#define dptsvx FORTRAN_WRAPPER(dptsvx)
13300extern void dptsvx(
13301 const char *fact,
13302 const ptrdiff_t *n,
13303 const ptrdiff_t *nrhs,
13304 const double *d,
13305 const double *e,
13306 double *df,
13307 double *ef,
13308 const double *b,
13309 const ptrdiff_t *ldb,
13310 double *x,
13311 const ptrdiff_t *ldx,
13312 double *rcond,
13313 double *ferr,
13314 double *berr,
13315 double *work,
13316 ptrdiff_t *info
13317);
13318
13319/* Source: dpttrf.f */
13320#define dpttrf FORTRAN_WRAPPER(dpttrf)
13321extern void dpttrf(
13322 const ptrdiff_t *n,
13323 double *d,
13324 double *e,
13325 ptrdiff_t *info
13326);
13327
13328/* Source: dpttrs.f */
13329#define dpttrs FORTRAN_WRAPPER(dpttrs)
13330extern void dpttrs(
13331 const ptrdiff_t *n,
13332 const ptrdiff_t *nrhs,
13333 const double *d,
13334 const double *e,
13335 double *b,
13336 const ptrdiff_t *ldb,
13337 ptrdiff_t *info
13338);
13339
13340/* Source: dptts2.f */
13341#define dptts2 FORTRAN_WRAPPER(dptts2)
13342extern void dptts2(
13343 const ptrdiff_t *n,
13344 const ptrdiff_t *nrhs,
13345 const double *d,
13346 const double *e,
13347 double *b,
13348 const ptrdiff_t *ldb
13349);
13350
13351/* Source: drscl.f */
13352#define drscl FORTRAN_WRAPPER(drscl)
13353extern void drscl(
13354 const ptrdiff_t *n,
13355 const double *sa,
13356 double *sx,
13357 const ptrdiff_t *incx
13358);
13359
13360/* Source: dsb2st_kernels.f */
13361#define dsb2st_kernels FORTRAN_WRAPPER(dsb2st_kernels)
13362extern void dsb2st_kernels(
13363 char *uplo,
13364 ptrdiff_t *wantz,
13365 ptrdiff_t *ttype,
13366 ptrdiff_t *st,
13367 ptrdiff_t *ed,
13368 ptrdiff_t *sweep,
13369 ptrdiff_t *n,
13370 ptrdiff_t *nb,
13371 ptrdiff_t *ib,
13372 double *a,
13373 ptrdiff_t *lda,
13374 double *v,
13375 double *tau,
13376 ptrdiff_t *ldvt,
13377 double *work
13378);
13379
13380/* Source: dsbev.f */
13381#define dsbev FORTRAN_WRAPPER(dsbev)
13382extern void dsbev(
13383 const char *jobz,
13384 const char *uplo,
13385 const ptrdiff_t *n,
13386 const ptrdiff_t *kd,
13387 double *ab,
13388 const ptrdiff_t *ldab,
13389 double *w,
13390 double *z,
13391 const ptrdiff_t *ldz,
13392 double *work,
13393 ptrdiff_t *info
13394);
13395
13396/* Source: dsbev_2stage.f */
13397#define dsbev_2stage FORTRAN_WRAPPER(dsbev_2stage)
13398extern void dsbev_2stage(
13399 char *jobz,
13400 char *uplo,
13401 ptrdiff_t *n,
13402 ptrdiff_t *kd,
13403 double *ab,
13404 ptrdiff_t *ldab,
13405 double *w,
13406 double *z,
13407 ptrdiff_t *ldz,
13408 double *work,
13409 ptrdiff_t *lwork,
13410 ptrdiff_t *info
13411);
13412
13413/* Source: dsbevd.f */
13414#define dsbevd FORTRAN_WRAPPER(dsbevd)
13415extern void dsbevd(
13416 const char *jobz,
13417 const char *uplo,
13418 const ptrdiff_t *n,
13419 const ptrdiff_t *kd,
13420 double *ab,
13421 const ptrdiff_t *ldab,
13422 double *w,
13423 double *z,
13424 const ptrdiff_t *ldz,
13425 double *work,
13426 const ptrdiff_t *lwork,
13427 ptrdiff_t *iwork,
13428 const ptrdiff_t *liwork,
13429 ptrdiff_t *info
13430);
13431
13432/* Source: dsbevd_2stage.f */
13433#define dsbevd_2stage FORTRAN_WRAPPER(dsbevd_2stage)
13434extern void dsbevd_2stage(
13435 char *jobz,
13436 char *uplo,
13437 ptrdiff_t *n,
13438 ptrdiff_t *kd,
13439 double *ab,
13440 ptrdiff_t *ldab,
13441 double *w,
13442 double *z,
13443 ptrdiff_t *ldz,
13444 double *work,
13445 ptrdiff_t *lwork,
13446 ptrdiff_t *iwork,
13447 ptrdiff_t *liwork,
13448 ptrdiff_t *info
13449);
13450
13451/* Source: dsbevx.f */
13452#define dsbevx FORTRAN_WRAPPER(dsbevx)
13453extern void dsbevx(
13454 const char *jobz,
13455 const char *range,
13456 const char *uplo,
13457 const ptrdiff_t *n,
13458 const ptrdiff_t *kd,
13459 double *ab,
13460 const ptrdiff_t *ldab,
13461 double *q,
13462 const ptrdiff_t *ldq,
13463 const double *vl,
13464 const double *vu,
13465 const ptrdiff_t *il,
13466 const ptrdiff_t *iu,
13467 const double *abstol,
13468 ptrdiff_t *m,
13469 double *w,
13470 double *z,
13471 const ptrdiff_t *ldz,
13472 double *work,
13473 ptrdiff_t *iwork,
13474 ptrdiff_t *ifail,
13475 ptrdiff_t *info
13476);
13477
13478/* Source: dsbevx_2stage.f */
13479#define dsbevx_2stage FORTRAN_WRAPPER(dsbevx_2stage)
13480extern void dsbevx_2stage(
13481 char *jobz,
13482 char *range,
13483 char *uplo,
13484 ptrdiff_t *n,
13485 ptrdiff_t *kd,
13486 double *ab,
13487 ptrdiff_t *ldab,
13488 double *q,
13489 ptrdiff_t *ldq,
13490 double *vl,
13491 double *vu,
13492 ptrdiff_t *il,
13493 ptrdiff_t *iu,
13494 double *abstol,
13495 ptrdiff_t *m,
13496 double *w,
13497 double *z,
13498 ptrdiff_t *ldz,
13499 double *work,
13500 ptrdiff_t *lwork,
13501 ptrdiff_t *iwork,
13502 ptrdiff_t *ifail,
13503 ptrdiff_t *info
13504);
13505
13506/* Source: dsbgst.f */
13507#define dsbgst FORTRAN_WRAPPER(dsbgst)
13508extern void dsbgst(
13509 const char *vect,
13510 const char *uplo,
13511 const ptrdiff_t *n,
13512 const ptrdiff_t *ka,
13513 const ptrdiff_t *kb,
13514 double *ab,
13515 const ptrdiff_t *ldab,
13516 const double *bb,
13517 const ptrdiff_t *ldbb,
13518 double *x,
13519 const ptrdiff_t *ldx,
13520 double *work,
13521 ptrdiff_t *info
13522);
13523
13524/* Source: dsbgv.f */
13525#define dsbgv FORTRAN_WRAPPER(dsbgv)
13526extern void dsbgv(
13527 const char *jobz,
13528 const char *uplo,
13529 const ptrdiff_t *n,
13530 const ptrdiff_t *ka,
13531 const ptrdiff_t *kb,
13532 double *ab,
13533 const ptrdiff_t *ldab,
13534 double *bb,
13535 const ptrdiff_t *ldbb,
13536 double *w,
13537 double *z,
13538 const ptrdiff_t *ldz,
13539 double *work,
13540 ptrdiff_t *info
13541);
13542
13543/* Source: dsbgvd.f */
13544#define dsbgvd FORTRAN_WRAPPER(dsbgvd)
13545extern void dsbgvd(
13546 const char *jobz,
13547 const char *uplo,
13548 const ptrdiff_t *n,
13549 const ptrdiff_t *ka,
13550 const ptrdiff_t *kb,
13551 double *ab,
13552 const ptrdiff_t *ldab,
13553 double *bb,
13554 const ptrdiff_t *ldbb,
13555 double *w,
13556 double *z,
13557 const ptrdiff_t *ldz,
13558 double *work,
13559 const ptrdiff_t *lwork,
13560 ptrdiff_t *iwork,
13561 const ptrdiff_t *liwork,
13562 ptrdiff_t *info
13563);
13564
13565/* Source: dsbgvx.f */
13566#define dsbgvx FORTRAN_WRAPPER(dsbgvx)
13567extern void dsbgvx(
13568 const char *jobz,
13569 const char *range,
13570 const char *uplo,
13571 const ptrdiff_t *n,
13572 const ptrdiff_t *ka,
13573 const ptrdiff_t *kb,
13574 double *ab,
13575 const ptrdiff_t *ldab,
13576 double *bb,
13577 const ptrdiff_t *ldbb,
13578 double *q,
13579 const ptrdiff_t *ldq,
13580 const double *vl,
13581 const double *vu,
13582 const ptrdiff_t *il,
13583 const ptrdiff_t *iu,
13584 const double *abstol,
13585 ptrdiff_t *m,
13586 double *w,
13587 double *z,
13588 const ptrdiff_t *ldz,
13589 double *work,
13590 ptrdiff_t *iwork,
13591 ptrdiff_t *ifail,
13592 ptrdiff_t *info
13593);
13594
13595/* Source: dsbtrd.f */
13596#define dsbtrd FORTRAN_WRAPPER(dsbtrd)
13597extern void dsbtrd(
13598 const char *vect,
13599 const char *uplo,
13600 const ptrdiff_t *n,
13601 const ptrdiff_t *kd,
13602 double *ab,
13603 const ptrdiff_t *ldab,
13604 double *d,
13605 double *e,
13606 double *q,
13607 const ptrdiff_t *ldq,
13608 double *work,
13609 ptrdiff_t *info
13610);
13611
13612/* Source: dsfrk.f */
13613#define dsfrk FORTRAN_WRAPPER(dsfrk)
13614extern void dsfrk(
13615 const char *transr,
13616 const char *uplo,
13617 const char *trans,
13618 const ptrdiff_t *n,
13619 const ptrdiff_t *k,
13620 const double *alpha,
13621 const double *a,
13622 const ptrdiff_t *lda,
13623 const double *beta,
13624 double *c
13625);
13626
13627/* Source: dsgesv.f */
13628#define dsgesv FORTRAN_WRAPPER(dsgesv)
13629extern void dsgesv(
13630 const ptrdiff_t *n,
13631 const ptrdiff_t *nrhs,
13632 double *a,
13633 const ptrdiff_t *lda,
13634 ptrdiff_t *ipiv,
13635 const double *b,
13636 const ptrdiff_t *ldb,
13637 double *x,
13638 const ptrdiff_t *ldx,
13639 double *work,
13640 float *swork,
13641 ptrdiff_t *iter,
13642 ptrdiff_t *info
13643);
13644
13645/* Source: dspcon.f */
13646#define dspcon FORTRAN_WRAPPER(dspcon)
13647extern void dspcon(
13648 const char *uplo,
13649 const ptrdiff_t *n,
13650 const double *ap,
13651 const ptrdiff_t *ipiv,
13652 const double *anorm,
13653 double *rcond,
13654 double *work,
13655 ptrdiff_t *iwork,
13656 ptrdiff_t *info
13657);
13658
13659/* Source: dspev.f */
13660#define dspev FORTRAN_WRAPPER(dspev)
13661extern void dspev(
13662 const char *jobz,
13663 const char *uplo,
13664 const ptrdiff_t *n,
13665 double *ap,
13666 double *w,
13667 double *z,
13668 const ptrdiff_t *ldz,
13669 double *work,
13670 ptrdiff_t *info
13671);
13672
13673/* Source: dspevd.f */
13674#define dspevd FORTRAN_WRAPPER(dspevd)
13675extern void dspevd(
13676 const char *jobz,
13677 const char *uplo,
13678 const ptrdiff_t *n,
13679 double *ap,
13680 double *w,
13681 double *z,
13682 const ptrdiff_t *ldz,
13683 double *work,
13684 const ptrdiff_t *lwork,
13685 ptrdiff_t *iwork,
13686 const ptrdiff_t *liwork,
13687 ptrdiff_t *info
13688);
13689
13690/* Source: dspevx.f */
13691#define dspevx FORTRAN_WRAPPER(dspevx)
13692extern void dspevx(
13693 const char *jobz,
13694 const char *range,
13695 const char *uplo,
13696 const ptrdiff_t *n,
13697 double *ap,
13698 const double *vl,
13699 const double *vu,
13700 const ptrdiff_t *il,
13701 const ptrdiff_t *iu,
13702 const double *abstol,
13703 ptrdiff_t *m,
13704 double *w,
13705 double *z,
13706 const ptrdiff_t *ldz,
13707 double *work,
13708 ptrdiff_t *iwork,
13709 ptrdiff_t *ifail,
13710 ptrdiff_t *info
13711);
13712
13713/* Source: dspgst.f */
13714#define dspgst FORTRAN_WRAPPER(dspgst)
13715extern void dspgst(
13716 const ptrdiff_t *itype,
13717 const char *uplo,
13718 const ptrdiff_t *n,
13719 double *ap,
13720 const double *bp,
13721 ptrdiff_t *info
13722);
13723
13724/* Source: dspgv.f */
13725#define dspgv FORTRAN_WRAPPER(dspgv)
13726extern void dspgv(
13727 const ptrdiff_t *itype,
13728 const char *jobz,
13729 const char *uplo,
13730 const ptrdiff_t *n,
13731 double *ap,
13732 double *bp,
13733 double *w,
13734 double *z,
13735 const ptrdiff_t *ldz,
13736 double *work,
13737 ptrdiff_t *info
13738);
13739
13740/* Source: dspgvd.f */
13741#define dspgvd FORTRAN_WRAPPER(dspgvd)
13742extern void dspgvd(
13743 const ptrdiff_t *itype,
13744 const char *jobz,
13745 const char *uplo,
13746 const ptrdiff_t *n,
13747 double *ap,
13748 double *bp,
13749 double *w,
13750 double *z,
13751 const ptrdiff_t *ldz,
13752 double *work,
13753 const ptrdiff_t *lwork,
13754 ptrdiff_t *iwork,
13755 const ptrdiff_t *liwork,
13756 ptrdiff_t *info
13757);
13758
13759/* Source: dspgvx.f */
13760#define dspgvx FORTRAN_WRAPPER(dspgvx)
13761extern void dspgvx(
13762 const ptrdiff_t *itype,
13763 const char *jobz,
13764 const char *range,
13765 const char *uplo,
13766 const ptrdiff_t *n,
13767 double *ap,
13768 double *bp,
13769 const double *vl,
13770 const double *vu,
13771 const ptrdiff_t *il,
13772 const ptrdiff_t *iu,
13773 const double *abstol,
13774 ptrdiff_t *m,
13775 double *w,
13776 double *z,
13777 const ptrdiff_t *ldz,
13778 double *work,
13779 ptrdiff_t *iwork,
13780 ptrdiff_t *ifail,
13781 ptrdiff_t *info
13782);
13783
13784/* Source: dsposv.f */
13785#define dsposv FORTRAN_WRAPPER(dsposv)
13786extern void dsposv(
13787 const char *uplo,
13788 const ptrdiff_t *n,
13789 const ptrdiff_t *nrhs,
13790 double *a,
13791 const ptrdiff_t *lda,
13792 const double *b,
13793 const ptrdiff_t *ldb,
13794 double *x,
13795 const ptrdiff_t *ldx,
13796 double *work,
13797 float *swork,
13798 ptrdiff_t *iter,
13799 ptrdiff_t *info
13800);
13801
13802/* Source: dsprfs.f */
13803#define dsprfs FORTRAN_WRAPPER(dsprfs)
13804extern void dsprfs(
13805 const char *uplo,
13806 const ptrdiff_t *n,
13807 const ptrdiff_t *nrhs,
13808 const double *ap,
13809 const double *afp,
13810 const ptrdiff_t *ipiv,
13811 const double *b,
13812 const ptrdiff_t *ldb,
13813 double *x,
13814 const ptrdiff_t *ldx,
13815 double *ferr,
13816 double *berr,
13817 double *work,
13818 ptrdiff_t *iwork,
13819 ptrdiff_t *info
13820);
13821
13822/* Source: dspsv.f */
13823#define dspsv FORTRAN_WRAPPER(dspsv)
13824extern void dspsv(
13825 const char *uplo,
13826 const ptrdiff_t *n,
13827 const ptrdiff_t *nrhs,
13828 double *ap,
13829 ptrdiff_t *ipiv,
13830 double *b,
13831 const ptrdiff_t *ldb,
13832 ptrdiff_t *info
13833);
13834
13835/* Source: dspsvx.f */
13836#define dspsvx FORTRAN_WRAPPER(dspsvx)
13837extern void dspsvx(
13838 const char *fact,
13839 const char *uplo,
13840 const ptrdiff_t *n,
13841 const ptrdiff_t *nrhs,
13842 const double *ap,
13843 double *afp,
13844 ptrdiff_t *ipiv,
13845 const double *b,
13846 const ptrdiff_t *ldb,
13847 double *x,
13848 const ptrdiff_t *ldx,
13849 double *rcond,
13850 double *ferr,
13851 double *berr,
13852 double *work,
13853 ptrdiff_t *iwork,
13854 ptrdiff_t *info
13855);
13856
13857/* Source: dsptrd.f */
13858#define dsptrd FORTRAN_WRAPPER(dsptrd)
13859extern void dsptrd(
13860 const char *uplo,
13861 const ptrdiff_t *n,
13862 double *ap,
13863 double *d,
13864 double *e,
13865 double *tau,
13866 ptrdiff_t *info
13867);
13868
13869/* Source: dsptrf.f */
13870#define dsptrf FORTRAN_WRAPPER(dsptrf)
13871extern void dsptrf(
13872 const char *uplo,
13873 const ptrdiff_t *n,
13874 double *ap,
13875 ptrdiff_t *ipiv,
13876 ptrdiff_t *info
13877);
13878
13879/* Source: dsptri.f */
13880#define dsptri FORTRAN_WRAPPER(dsptri)
13881extern void dsptri(
13882 const char *uplo,
13883 const ptrdiff_t *n,
13884 double *ap,
13885 const ptrdiff_t *ipiv,
13886 double *work,
13887 ptrdiff_t *info
13888);
13889
13890/* Source: dsptrs.f */
13891#define dsptrs FORTRAN_WRAPPER(dsptrs)
13892extern void dsptrs(
13893 const char *uplo,
13894 const ptrdiff_t *n,
13895 const ptrdiff_t *nrhs,
13896 const double *ap,
13897 const ptrdiff_t *ipiv,
13898 double *b,
13899 const ptrdiff_t *ldb,
13900 ptrdiff_t *info
13901);
13902
13903/* Source: dstebz.f */
13904#define dstebz FORTRAN_WRAPPER(dstebz)
13905extern void dstebz(
13906 const char *range,
13907 const char *order,
13908 const ptrdiff_t *n,
13909 const double *vl,
13910 const double *vu,
13911 const ptrdiff_t *il,
13912 const ptrdiff_t *iu,
13913 const double *abstol,
13914 const double *d,
13915 const double *e,
13916 ptrdiff_t *m,
13917 ptrdiff_t *nsplit,
13918 double *w,
13919 ptrdiff_t *iblock,
13920 ptrdiff_t *isplit,
13921 double *work,
13922 ptrdiff_t *iwork,
13923 ptrdiff_t *info
13924);
13925
13926/* Source: dstedc.f */
13927#define dstedc FORTRAN_WRAPPER(dstedc)
13928extern void dstedc(
13929 const char *compz,
13930 const ptrdiff_t *n,
13931 double *d,
13932 double *e,
13933 double *z,
13934 const ptrdiff_t *ldz,
13935 double *work,
13936 const ptrdiff_t *lwork,
13937 ptrdiff_t *iwork,
13938 const ptrdiff_t *liwork,
13939 ptrdiff_t *info
13940);
13941
13942/* Source: dstegr.f */
13943#define dstegr FORTRAN_WRAPPER(dstegr)
13944extern void dstegr(
13945 const char *jobz,
13946 const char *range,
13947 const ptrdiff_t *n,
13948 double *d,
13949 double *e,
13950 const double *vl,
13951 const double *vu,
13952 const ptrdiff_t *il,
13953 const ptrdiff_t *iu,
13954 const double *abstol,
13955 ptrdiff_t *m,
13956 double *w,
13957 double *z,
13958 const ptrdiff_t *ldz,
13959 ptrdiff_t *isuppz,
13960 double *work,
13961 const ptrdiff_t *lwork,
13962 ptrdiff_t *iwork,
13963 const ptrdiff_t *liwork,
13964 ptrdiff_t *info
13965);
13966
13967/* Source: dstein.f */
13968#define dstein FORTRAN_WRAPPER(dstein)
13969extern void dstein(
13970 const ptrdiff_t *n,
13971 const double *d,
13972 const double *e,
13973 const ptrdiff_t *m,
13974 const double *w,
13975 const ptrdiff_t *iblock,
13976 const ptrdiff_t *isplit,
13977 double *z,
13978 const ptrdiff_t *ldz,
13979 double *work,
13980 ptrdiff_t *iwork,
13981 ptrdiff_t *ifail,
13982 ptrdiff_t *info
13983);
13984
13985/* Source: dstemr.f */
13986#define dstemr FORTRAN_WRAPPER(dstemr)
13987extern void dstemr(
13988 const char *jobz,
13989 const char *range,
13990 const ptrdiff_t *n,
13991 double *d,
13992 double *e,
13993 const double *vl,
13994 const double *vu,
13995 const ptrdiff_t *il,
13996 const ptrdiff_t *iu,
13997 ptrdiff_t *m,
13998 double *w,
13999 double *z,
14000 const ptrdiff_t *ldz,
14001 const ptrdiff_t *nzc,
14002 ptrdiff_t *isuppz,
14003 ptrdiff_t *tryrac,
14004 double *work,
14005 const ptrdiff_t *lwork,
14006 ptrdiff_t *iwork,
14007 const ptrdiff_t *liwork,
14008 ptrdiff_t *info
14009);
14010
14011/* Source: dsteqr.f */
14012#define dsteqr FORTRAN_WRAPPER(dsteqr)
14013extern void dsteqr(
14014 const char *compz,
14015 const ptrdiff_t *n,
14016 double *d,
14017 double *e,
14018 double *z,
14019 const ptrdiff_t *ldz,
14020 double *work,
14021 ptrdiff_t *info
14022);
14023
14024/* Source: dsterf.f */
14025#define dsterf FORTRAN_WRAPPER(dsterf)
14026extern void dsterf(
14027 const ptrdiff_t *n,
14028 double *d,
14029 double *e,
14030 ptrdiff_t *info
14031);
14032
14033/* Source: dstev.f */
14034#define dstev FORTRAN_WRAPPER(dstev)
14035extern void dstev(
14036 const char *jobz,
14037 const ptrdiff_t *n,
14038 double *d,
14039 double *e,
14040 double *z,
14041 const ptrdiff_t *ldz,
14042 double *work,
14043 ptrdiff_t *info
14044);
14045
14046/* Source: dstevd.f */
14047#define dstevd FORTRAN_WRAPPER(dstevd)
14048extern void dstevd(
14049 const char *jobz,
14050 const ptrdiff_t *n,
14051 double *d,
14052 double *e,
14053 double *z,
14054 const ptrdiff_t *ldz,
14055 double *work,
14056 const ptrdiff_t *lwork,
14057 ptrdiff_t *iwork,
14058 const ptrdiff_t *liwork,
14059 ptrdiff_t *info
14060);
14061
14062/* Source: dstevr.f */
14063#define dstevr FORTRAN_WRAPPER(dstevr)
14064extern void dstevr(
14065 const char *jobz,
14066 const char *range,
14067 const ptrdiff_t *n,
14068 double *d,
14069 double *e,
14070 const double *vl,
14071 const double *vu,
14072 const ptrdiff_t *il,
14073 const ptrdiff_t *iu,
14074 const double *abstol,
14075 ptrdiff_t *m,
14076 double *w,
14077 double *z,
14078 const ptrdiff_t *ldz,
14079 ptrdiff_t *isuppz,
14080 double *work,
14081 const ptrdiff_t *lwork,
14082 ptrdiff_t *iwork,
14083 const ptrdiff_t *liwork,
14084 ptrdiff_t *info
14085);
14086
14087/* Source: dstevx.f */
14088#define dstevx FORTRAN_WRAPPER(dstevx)
14089extern void dstevx(
14090 const char *jobz,
14091 const char *range,
14092 const ptrdiff_t *n,
14093 double *d,
14094 double *e,
14095 const double *vl,
14096 const double *vu,
14097 const ptrdiff_t *il,
14098 const ptrdiff_t *iu,
14099 const double *abstol,
14100 ptrdiff_t *m,
14101 double *w,
14102 double *z,
14103 const ptrdiff_t *ldz,
14104 double *work,
14105 ptrdiff_t *iwork,
14106 ptrdiff_t *ifail,
14107 ptrdiff_t *info
14108);
14109
14110/* Source: dsycon.f */
14111#define dsycon FORTRAN_WRAPPER(dsycon)
14112extern void dsycon(
14113 const char *uplo,
14114 const ptrdiff_t *n,
14115 const double *a,
14116 const ptrdiff_t *lda,
14117 const ptrdiff_t *ipiv,
14118 const double *anorm,
14119 double *rcond,
14120 double *work,
14121 ptrdiff_t *iwork,
14122 ptrdiff_t *info
14123);
14124
14125/* Source: dsycon_3.f */
14126#define dsycon_3 FORTRAN_WRAPPER(dsycon_3)
14127extern void dsycon_3(
14128 char *uplo,
14129 ptrdiff_t *n,
14130 double *a,
14131 ptrdiff_t *lda,
14132 double *e,
14133 ptrdiff_t *ipiv,
14134 double *anorm,
14135 double *rcond,
14136 double *work,
14137 ptrdiff_t *iwork,
14138 ptrdiff_t *info
14139);
14140
14141/* Source: dsycon_rook.f */
14142#define dsycon_rook FORTRAN_WRAPPER(dsycon_rook)
14143extern void dsycon_rook(
14144 const char *uplo,
14145 const ptrdiff_t *n,
14146 const double *a,
14147 const ptrdiff_t *lda,
14148 const ptrdiff_t *ipiv,
14149 const double *anorm,
14150 double *rcond,
14151 double *work,
14152 ptrdiff_t *iwork,
14153 ptrdiff_t *info
14154);
14155
14156/* Source: dsyconv.f */
14157#define dsyconv FORTRAN_WRAPPER(dsyconv)
14158extern void dsyconv(
14159 const char *uplo,
14160 const char *way,
14161 const ptrdiff_t *n,
14162 double *a,
14163 const ptrdiff_t *lda,
14164 const ptrdiff_t *ipiv,
14165 double *e,
14166 ptrdiff_t *info
14167);
14168
14169/* Source: dsyconvf.f */
14170#define dsyconvf FORTRAN_WRAPPER(dsyconvf)
14171extern void dsyconvf(
14172 char *uplo,
14173 char *way,
14174 ptrdiff_t *n,
14175 double *a,
14176 ptrdiff_t *lda,
14177 double *e,
14178 ptrdiff_t *ipiv,
14179 ptrdiff_t *info
14180);
14181
14182/* Source: dsyconvf_rook.f */
14183#define dsyconvf_rook FORTRAN_WRAPPER(dsyconvf_rook)
14184extern void dsyconvf_rook(
14185 char *uplo,
14186 char *way,
14187 ptrdiff_t *n,
14188 double *a,
14189 ptrdiff_t *lda,
14190 double *e,
14191 ptrdiff_t *ipiv,
14192 ptrdiff_t *info
14193);
14194
14195/* Source: dsyequb.f */
14196#define dsyequb FORTRAN_WRAPPER(dsyequb)
14197extern void dsyequb(
14198 char *uplo,
14199 const ptrdiff_t *n,
14200 const double *a,
14201 const ptrdiff_t *lda,
14202 double *s,
14203 double *scond,
14204 double *amax,
14205 double *work,
14206 ptrdiff_t *info
14207);
14208
14209/* Source: dsyev.f */
14210#define dsyev FORTRAN_WRAPPER(dsyev)
14211extern void dsyev(
14212 const char *jobz,
14213 const char *uplo,
14214 const ptrdiff_t *n,
14215 double *a,
14216 const ptrdiff_t *lda,
14217 double *w,
14218 double *work,
14219 const ptrdiff_t *lwork,
14220 ptrdiff_t *info
14221);
14222
14223/* Source: dsyev_2stage.f */
14224#define dsyev_2stage FORTRAN_WRAPPER(dsyev_2stage)
14225extern void dsyev_2stage(
14226 char *jobz,
14227 char *uplo,
14228 ptrdiff_t *n,
14229 double *a,
14230 ptrdiff_t *lda,
14231 double *w,
14232 double *work,
14233 ptrdiff_t *lwork,
14234 ptrdiff_t *info
14235);
14236
14237/* Source: dsyevd.f */
14238#define dsyevd FORTRAN_WRAPPER(dsyevd)
14239extern void dsyevd(
14240 const char *jobz,
14241 const char *uplo,
14242 const ptrdiff_t *n,
14243 double *a,
14244 const ptrdiff_t *lda,
14245 double *w,
14246 double *work,
14247 const ptrdiff_t *lwork,
14248 ptrdiff_t *iwork,
14249 const ptrdiff_t *liwork,
14250 ptrdiff_t *info
14251);
14252
14253/* Source: dsyevd_2stage.f */
14254#define dsyevd_2stage FORTRAN_WRAPPER(dsyevd_2stage)
14255extern void dsyevd_2stage(
14256 char *jobz,
14257 char *uplo,
14258 ptrdiff_t *n,
14259 double *a,
14260 ptrdiff_t *lda,
14261 double *w,
14262 double *work,
14263 ptrdiff_t *lwork,
14264 ptrdiff_t *iwork,
14265 ptrdiff_t *liwork,
14266 ptrdiff_t *info
14267);
14268
14269/* Source: dsyevr.f */
14270#define dsyevr FORTRAN_WRAPPER(dsyevr)
14271extern void dsyevr(
14272 const char *jobz,
14273 const char *range,
14274 const char *uplo,
14275 const ptrdiff_t *n,
14276 double *a,
14277 const ptrdiff_t *lda,
14278 const double *vl,
14279 const double *vu,
14280 const ptrdiff_t *il,
14281 const ptrdiff_t *iu,
14282 const double *abstol,
14283 ptrdiff_t *m,
14284 double *w,
14285 double *z,
14286 const ptrdiff_t *ldz,
14287 ptrdiff_t *isuppz,
14288 double *work,
14289 const ptrdiff_t *lwork,
14290 ptrdiff_t *iwork,
14291 const ptrdiff_t *liwork,
14292 ptrdiff_t *info
14293);
14294
14295/* Source: dsyevr_2stage.f */
14296#define dsyevr_2stage FORTRAN_WRAPPER(dsyevr_2stage)
14297extern void dsyevr_2stage(
14298 char *jobz,
14299 char *range,
14300 char *uplo,
14301 ptrdiff_t *n,
14302 double *a,
14303 ptrdiff_t *lda,
14304 double *vl,
14305 double *vu,
14306 ptrdiff_t *il,
14307 ptrdiff_t *iu,
14308 double *abstol,
14309 ptrdiff_t *m,
14310 double *w,
14311 double *z,
14312 ptrdiff_t *ldz,
14313 ptrdiff_t *isuppz,
14314 double *work,
14315 ptrdiff_t *lwork,
14316 ptrdiff_t *iwork,
14317 ptrdiff_t *liwork,
14318 ptrdiff_t *info
14319);
14320
14321/* Source: dsyevx.f */
14322#define dsyevx FORTRAN_WRAPPER(dsyevx)
14323extern void dsyevx(
14324 const char *jobz,
14325 const char *range,
14326 const char *uplo,
14327 const ptrdiff_t *n,
14328 double *a,
14329 const ptrdiff_t *lda,
14330 const double *vl,
14331 const double *vu,
14332 const ptrdiff_t *il,
14333 const ptrdiff_t *iu,
14334 const double *abstol,
14335 ptrdiff_t *m,
14336 double *w,
14337 double *z,
14338 const ptrdiff_t *ldz,
14339 double *work,
14340 const ptrdiff_t *lwork,
14341 ptrdiff_t *iwork,
14342 ptrdiff_t *ifail,
14343 ptrdiff_t *info
14344);
14345
14346/* Source: dsyevx_2stage.f */
14347#define dsyevx_2stage FORTRAN_WRAPPER(dsyevx_2stage)
14348extern void dsyevx_2stage(
14349 char *jobz,
14350 char *range,
14351 char *uplo,
14352 ptrdiff_t *n,
14353 double *a,
14354 ptrdiff_t *lda,
14355 double *vl,
14356 double *vu,
14357 ptrdiff_t *il,
14358 ptrdiff_t *iu,
14359 double *abstol,
14360 ptrdiff_t *m,
14361 double *w,
14362 double *z,
14363 ptrdiff_t *ldz,
14364 double *work,
14365 ptrdiff_t *lwork,
14366 ptrdiff_t *iwork,
14367 ptrdiff_t *ifail,
14368 ptrdiff_t *info
14369);
14370
14371/* Source: dsygs2.f */
14372#define dsygs2 FORTRAN_WRAPPER(dsygs2)
14373extern void dsygs2(
14374 const ptrdiff_t *itype,
14375 const char *uplo,
14376 const ptrdiff_t *n,
14377 double *a,
14378 const ptrdiff_t *lda,
14379 const double *b,
14380 const ptrdiff_t *ldb,
14381 ptrdiff_t *info
14382);
14383
14384/* Source: dsygst.f */
14385#define dsygst FORTRAN_WRAPPER(dsygst)
14386extern void dsygst(
14387 const ptrdiff_t *itype,
14388 const char *uplo,
14389 const ptrdiff_t *n,
14390 double *a,
14391 const ptrdiff_t *lda,
14392 const double *b,
14393 const ptrdiff_t *ldb,
14394 ptrdiff_t *info
14395);
14396
14397/* Source: dsygv.f */
14398#define dsygv FORTRAN_WRAPPER(dsygv)
14399extern void dsygv(
14400 const ptrdiff_t *itype,
14401 const char *jobz,
14402 const char *uplo,
14403 const ptrdiff_t *n,
14404 double *a,
14405 const ptrdiff_t *lda,
14406 double *b,
14407 const ptrdiff_t *ldb,
14408 double *w,
14409 double *work,
14410 const ptrdiff_t *lwork,
14411 ptrdiff_t *info
14412);
14413
14414/* Source: dsygv_2stage.f */
14415#define dsygv_2stage FORTRAN_WRAPPER(dsygv_2stage)
14416extern void dsygv_2stage(
14417 ptrdiff_t *itype,
14418 char *jobz,
14419 char *uplo,
14420 ptrdiff_t *n,
14421 double *a,
14422 ptrdiff_t *lda,
14423 double *b,
14424 ptrdiff_t *ldb,
14425 double *w,
14426 double *work,
14427 ptrdiff_t *lwork,
14428 ptrdiff_t *info
14429);
14430
14431/* Source: dsygvd.f */
14432#define dsygvd FORTRAN_WRAPPER(dsygvd)
14433extern void dsygvd(
14434 const ptrdiff_t *itype,
14435 const char *jobz,
14436 const char *uplo,
14437 const ptrdiff_t *n,
14438 double *a,
14439 const ptrdiff_t *lda,
14440 double *b,
14441 const ptrdiff_t *ldb,
14442 double *w,
14443 double *work,
14444 const ptrdiff_t *lwork,
14445 ptrdiff_t *iwork,
14446 const ptrdiff_t *liwork,
14447 ptrdiff_t *info
14448);
14449
14450/* Source: dsygvx.f */
14451#define dsygvx FORTRAN_WRAPPER(dsygvx)
14452extern void dsygvx(
14453 const ptrdiff_t *itype,
14454 const char *jobz,
14455 const char *range,
14456 const char *uplo,
14457 const ptrdiff_t *n,
14458 double *a,
14459 const ptrdiff_t *lda,
14460 double *b,
14461 const ptrdiff_t *ldb,
14462 const double *vl,
14463 const double *vu,
14464 const ptrdiff_t *il,
14465 const ptrdiff_t *iu,
14466 const double *abstol,
14467 ptrdiff_t *m,
14468 double *w,
14469 double *z,
14470 const ptrdiff_t *ldz,
14471 double *work,
14472 const ptrdiff_t *lwork,
14473 ptrdiff_t *iwork,
14474 ptrdiff_t *ifail,
14475 ptrdiff_t *info
14476);
14477
14478/* Source: dsyrfs.f */
14479#define dsyrfs FORTRAN_WRAPPER(dsyrfs)
14480extern void dsyrfs(
14481 const char *uplo,
14482 const ptrdiff_t *n,
14483 const ptrdiff_t *nrhs,
14484 const double *a,
14485 const ptrdiff_t *lda,
14486 const double *af,
14487 const ptrdiff_t *ldaf,
14488 const ptrdiff_t *ipiv,
14489 const double *b,
14490 const ptrdiff_t *ldb,
14491 double *x,
14492 const ptrdiff_t *ldx,
14493 double *ferr,
14494 double *berr,
14495 double *work,
14496 ptrdiff_t *iwork,
14497 ptrdiff_t *info
14498);
14499
14500/* Source: dsysv.f */
14501#define dsysv FORTRAN_WRAPPER(dsysv)
14502extern void dsysv(
14503 const char *uplo,
14504 const ptrdiff_t *n,
14505 const ptrdiff_t *nrhs,
14506 double *a,
14507 const ptrdiff_t *lda,
14508 ptrdiff_t *ipiv,
14509 double *b,
14510 const ptrdiff_t *ldb,
14511 double *work,
14512 const ptrdiff_t *lwork,
14513 ptrdiff_t *info
14514);
14515
14516/* Source: dsysv_aa.f */
14517#define dsysv_aa FORTRAN_WRAPPER(dsysv_aa)
14518extern void dsysv_aa(
14519 const char *uplo,
14520 const ptrdiff_t *n,
14521 const ptrdiff_t *nrhs,
14522 double *a,
14523 const ptrdiff_t *lda,
14524 ptrdiff_t *ipiv,
14525 double *b,
14526 const ptrdiff_t *ldb,
14527 double *work,
14528 const ptrdiff_t *lwork,
14529 ptrdiff_t *info
14530);
14531
14532/* Source: dsysv_rk.f */
14533#define dsysv_rk FORTRAN_WRAPPER(dsysv_rk)
14534extern void dsysv_rk(
14535 char *uplo,
14536 ptrdiff_t *n,
14537 ptrdiff_t *nrhs,
14538 double *a,
14539 ptrdiff_t *lda,
14540 double *e,
14541 ptrdiff_t *ipiv,
14542 double *b,
14543 ptrdiff_t *ldb,
14544 double *work,
14545 ptrdiff_t *lwork,
14546 ptrdiff_t *info
14547);
14548
14549/* Source: dsysv_rook.f */
14550#define dsysv_rook FORTRAN_WRAPPER(dsysv_rook)
14551extern void dsysv_rook(
14552 const char *uplo,
14553 const ptrdiff_t *n,
14554 const ptrdiff_t *nrhs,
14555 double *a,
14556 const ptrdiff_t *lda,
14557 ptrdiff_t *ipiv,
14558 double *b,
14559 const ptrdiff_t *ldb,
14560 double *work,
14561 const ptrdiff_t *lwork,
14562 ptrdiff_t *info
14563);
14564
14565/* Source: dsysvx.f */
14566#define dsysvx FORTRAN_WRAPPER(dsysvx)
14567extern void dsysvx(
14568 const char *fact,
14569 const char *uplo,
14570 const ptrdiff_t *n,
14571 const ptrdiff_t *nrhs,
14572 const double *a,
14573 const ptrdiff_t *lda,
14574 double *af,
14575 const ptrdiff_t *ldaf,
14576 ptrdiff_t *ipiv,
14577 const double *b,
14578 const ptrdiff_t *ldb,
14579 double *x,
14580 const ptrdiff_t *ldx,
14581 double *rcond,
14582 double *ferr,
14583 double *berr,
14584 double *work,
14585 const ptrdiff_t *lwork,
14586 ptrdiff_t *iwork,
14587 ptrdiff_t *info
14588);
14589
14590/* Source: dsyswapr.f */
14591#define dsyswapr FORTRAN_WRAPPER(dsyswapr)
14592extern void dsyswapr(
14593 const char *uplo,
14594 const ptrdiff_t *n,
14595 double *a,
14596 const ptrdiff_t *lda,
14597 const ptrdiff_t *i1,
14598 const ptrdiff_t *i2
14599);
14600
14601/* Source: dsytd2.f */
14602#define dsytd2 FORTRAN_WRAPPER(dsytd2)
14603extern void dsytd2(
14604 const char *uplo,
14605 const ptrdiff_t *n,
14606 double *a,
14607 const ptrdiff_t *lda,
14608 double *d,
14609 double *e,
14610 double *tau,
14611 ptrdiff_t *info
14612);
14613
14614/* Source: dsytf2.f */
14615#define dsytf2 FORTRAN_WRAPPER(dsytf2)
14616extern void dsytf2(
14617 const char *uplo,
14618 const ptrdiff_t *n,
14619 double *a,
14620 const ptrdiff_t *lda,
14621 ptrdiff_t *ipiv,
14622 ptrdiff_t *info
14623);
14624
14625/* Source: dsytf2_rk.f */
14626#define dsytf2_rk FORTRAN_WRAPPER(dsytf2_rk)
14627extern void dsytf2_rk(
14628 char *uplo,
14629 ptrdiff_t *n,
14630 double *a,
14631 ptrdiff_t *lda,
14632 double *e,
14633 ptrdiff_t *ipiv,
14634 ptrdiff_t *info
14635);
14636
14637/* Source: dsytf2_rook.f */
14638#define dsytf2_rook FORTRAN_WRAPPER(dsytf2_rook)
14639extern void dsytf2_rook(
14640 const char *uplo,
14641 const ptrdiff_t *n,
14642 double *a,
14643 const ptrdiff_t *lda,
14644 ptrdiff_t *ipiv,
14645 ptrdiff_t *info
14646);
14647
14648/* Source: dsytrd.f */
14649#define dsytrd FORTRAN_WRAPPER(dsytrd)
14650extern void dsytrd(
14651 const char *uplo,
14652 const ptrdiff_t *n,
14653 double *a,
14654 const ptrdiff_t *lda,
14655 double *d,
14656 double *e,
14657 double *tau,
14658 double *work,
14659 const ptrdiff_t *lwork,
14660 ptrdiff_t *info
14661);
14662
14663/* Source: dsytrd_2stage.f */
14664#define dsytrd_2stage FORTRAN_WRAPPER(dsytrd_2stage)
14665extern void dsytrd_2stage(
14666 char *vect,
14667 char *uplo,
14668 ptrdiff_t *n,
14669 double *a,
14670 ptrdiff_t *lda,
14671 double *d,
14672 double *e,
14673 double *tau,
14674 double *hous2,
14675 ptrdiff_t *lhous2,
14676 double *work,
14677 ptrdiff_t *lwork,
14678 ptrdiff_t *info
14679);
14680
14681/* Source: dsytrd_sb2st.f */
14682#define dsytrd_sb2st FORTRAN_WRAPPER(dsytrd_sb2st)
14683extern void dsytrd_sb2st(
14684 char *stage1,
14685 char *vect,
14686 char *uplo,
14687 ptrdiff_t *n,
14688 ptrdiff_t *kd,
14689 double *ab,
14690 ptrdiff_t *ldab,
14691 double *d,
14692 double *e,
14693 double *hous,
14694 ptrdiff_t *lhous,
14695 double *work,
14696 ptrdiff_t *lwork,
14697 ptrdiff_t *info
14698);
14699
14700/* Source: dsytrd_sy2sb.f */
14701#define dsytrd_sy2sb FORTRAN_WRAPPER(dsytrd_sy2sb)
14702extern void dsytrd_sy2sb(
14703 char *uplo,
14704 ptrdiff_t *n,
14705 ptrdiff_t *kd,
14706 double *a,
14707 ptrdiff_t *lda,
14708 double *ab,
14709 ptrdiff_t *ldab,
14710 double *tau,
14711 double *work,
14712 ptrdiff_t *lwork,
14713 ptrdiff_t *info
14714);
14715
14716/* Source: dsytrf.f */
14717#define dsytrf FORTRAN_WRAPPER(dsytrf)
14718extern void dsytrf(
14719 const char *uplo,
14720 const ptrdiff_t *n,
14721 double *a,
14722 const ptrdiff_t *lda,
14723 ptrdiff_t *ipiv,
14724 double *work,
14725 const ptrdiff_t *lwork,
14726 ptrdiff_t *info
14727);
14728
14729/* Source: dsytrf_aa.f */
14730#define dsytrf_aa FORTRAN_WRAPPER(dsytrf_aa)
14731extern void dsytrf_aa(
14732 const char *uplo,
14733 const ptrdiff_t *n,
14734 double *a,
14735 const ptrdiff_t *lda,
14736 ptrdiff_t *ipiv,
14737 double *work,
14738 const ptrdiff_t *lwork,
14739 ptrdiff_t *info
14740);
14741
14742/* Source: dsytrf_rk.f */
14743#define dsytrf_rk FORTRAN_WRAPPER(dsytrf_rk)
14744extern void dsytrf_rk(
14745 char *uplo,
14746 ptrdiff_t *n,
14747 double *a,
14748 ptrdiff_t *lda,
14749 double *e,
14750 ptrdiff_t *ipiv,
14751 double *work,
14752 ptrdiff_t *lwork,
14753 ptrdiff_t *info
14754);
14755
14756/* Source: dsytrf_rook.f */
14757#define dsytrf_rook FORTRAN_WRAPPER(dsytrf_rook)
14758extern void dsytrf_rook(
14759 const char *uplo,
14760 const ptrdiff_t *n,
14761 double *a,
14762 const ptrdiff_t *lda,
14763 ptrdiff_t *ipiv,
14764 double *work,
14765 const ptrdiff_t *lwork,
14766 ptrdiff_t *info
14767);
14768
14769/* Source: dsytri.f */
14770#define dsytri FORTRAN_WRAPPER(dsytri)
14771extern void dsytri(
14772 const char *uplo,
14773 const ptrdiff_t *n,
14774 double *a,
14775 const ptrdiff_t *lda,
14776 const ptrdiff_t *ipiv,
14777 double *work,
14778 ptrdiff_t *info
14779);
14780
14781/* Source: dsytri2.f */
14782#define dsytri2 FORTRAN_WRAPPER(dsytri2)
14783extern void dsytri2(
14784 const char *uplo,
14785 const ptrdiff_t *n,
14786 double *a,
14787 const ptrdiff_t *lda,
14788 const ptrdiff_t *ipiv,
14789 double *work,
14790 const ptrdiff_t *lwork,
14791 ptrdiff_t *info
14792);
14793
14794/* Source: dsytri2x.f */
14795#define dsytri2x FORTRAN_WRAPPER(dsytri2x)
14796extern void dsytri2x(
14797 const char *uplo,
14798 const ptrdiff_t *n,
14799 double *a,
14800 const ptrdiff_t *lda,
14801 const ptrdiff_t *ipiv,
14802 double *work,
14803 ptrdiff_t *nb,
14804 ptrdiff_t *info
14805);
14806
14807/* Source: dsytri_3.f */
14808#define dsytri_3 FORTRAN_WRAPPER(dsytri_3)
14809extern void dsytri_3(
14810 char *uplo,
14811 ptrdiff_t *n,
14812 double *a,
14813 ptrdiff_t *lda,
14814 double *e,
14815 ptrdiff_t *ipiv,
14816 double *work,
14817 ptrdiff_t *lwork,
14818 ptrdiff_t *info
14819);
14820
14821/* Source: dsytri_3x.f */
14822#define dsytri_3x FORTRAN_WRAPPER(dsytri_3x)
14823extern void dsytri_3x(
14824 char *uplo,
14825 ptrdiff_t *n,
14826 double *a,
14827 ptrdiff_t *lda,
14828 double *e,
14829 ptrdiff_t *ipiv,
14830 double *work,
14831 ptrdiff_t *nb,
14832 ptrdiff_t *info
14833);
14834
14835/* Source: dsytri_rook.f */
14836#define dsytri_rook FORTRAN_WRAPPER(dsytri_rook)
14837extern void dsytri_rook(
14838 const char *uplo,
14839 const ptrdiff_t *n,
14840 double *a,
14841 const ptrdiff_t *lda,
14842 const ptrdiff_t *ipiv,
14843 double *work,
14844 ptrdiff_t *info
14845);
14846
14847/* Source: dsytrs.f */
14848#define dsytrs FORTRAN_WRAPPER(dsytrs)
14849extern void dsytrs(
14850 const char *uplo,
14851 const ptrdiff_t *n,
14852 const ptrdiff_t *nrhs,
14853 const double *a,
14854 const ptrdiff_t *lda,
14855 const ptrdiff_t *ipiv,
14856 double *b,
14857 const ptrdiff_t *ldb,
14858 ptrdiff_t *info
14859);
14860
14861/* Source: dsytrs2.f */
14862#define dsytrs2 FORTRAN_WRAPPER(dsytrs2)
14863extern void dsytrs2(
14864 const char *uplo,
14865 const ptrdiff_t *n,
14866 const ptrdiff_t *nrhs,
14867 const double *a,
14868 const ptrdiff_t *lda,
14869 const ptrdiff_t *ipiv,
14870 double *b,
14871 const ptrdiff_t *ldb,
14872 double *work,
14873 ptrdiff_t *info
14874);
14875
14876/* Source: dsytrs_3.f */
14877#define dsytrs_3 FORTRAN_WRAPPER(dsytrs_3)
14878extern void dsytrs_3(
14879 char *uplo,
14880 ptrdiff_t *n,
14881 ptrdiff_t *nrhs,
14882 double *a,
14883 ptrdiff_t *lda,
14884 double *e,
14885 ptrdiff_t *ipiv,
14886 double *b,
14887 ptrdiff_t *ldb,
14888 ptrdiff_t *info
14889);
14890
14891/* Source: dsytrs_aa.f */
14892#define dsytrs_aa FORTRAN_WRAPPER(dsytrs_aa)
14893extern void dsytrs_aa(
14894 const char *uplo,
14895 const ptrdiff_t *n,
14896 const ptrdiff_t *nrhs,
14897 const double *a,
14898 const ptrdiff_t *lda,
14899 const ptrdiff_t *ipiv,
14900 double *b,
14901 const ptrdiff_t *ldb,
14902 const double *work,
14903 const ptrdiff_t *lwork,
14904 ptrdiff_t *info
14905);
14906
14907/* Source: dsytrs_rook.f */
14908#define dsytrs_rook FORTRAN_WRAPPER(dsytrs_rook)
14909extern void dsytrs_rook(
14910 const char *uplo,
14911 const ptrdiff_t *n,
14912 const ptrdiff_t *nrhs,
14913 const double *a,
14914 const ptrdiff_t *lda,
14915 const ptrdiff_t *ipiv,
14916 double *b,
14917 const ptrdiff_t *ldb,
14918 ptrdiff_t *info
14919);
14920
14921/* Source: dtbcon.f */
14922#define dtbcon FORTRAN_WRAPPER(dtbcon)
14923extern void dtbcon(
14924 const char *norm,
14925 const char *uplo,
14926 const char *diag,
14927 const ptrdiff_t *n,
14928 const ptrdiff_t *kd,
14929 const double *ab,
14930 const ptrdiff_t *ldab,
14931 double *rcond,
14932 double *work,
14933 ptrdiff_t *iwork,
14934 ptrdiff_t *info
14935);
14936
14937/* Source: dtbrfs.f */
14938#define dtbrfs FORTRAN_WRAPPER(dtbrfs)
14939extern void dtbrfs(
14940 const char *uplo,
14941 const char *trans,
14942 const char *diag,
14943 const ptrdiff_t *n,
14944 const ptrdiff_t *kd,
14945 const ptrdiff_t *nrhs,
14946 const double *ab,
14947 const ptrdiff_t *ldab,
14948 const double *b,
14949 const ptrdiff_t *ldb,
14950 const double *x,
14951 const ptrdiff_t *ldx,
14952 double *ferr,
14953 double *berr,
14954 double *work,
14955 ptrdiff_t *iwork,
14956 ptrdiff_t *info
14957);
14958
14959/* Source: dtbtrs.f */
14960#define dtbtrs FORTRAN_WRAPPER(dtbtrs)
14961extern void dtbtrs(
14962 const char *uplo,
14963 const char *trans,
14964 const char *diag,
14965 const ptrdiff_t *n,
14966 const ptrdiff_t *kd,
14967 const ptrdiff_t *nrhs,
14968 const double *ab,
14969 const ptrdiff_t *ldab,
14970 double *b,
14971 const ptrdiff_t *ldb,
14972 ptrdiff_t *info
14973);
14974
14975/* Source: dtfsm.f */
14976#define dtfsm FORTRAN_WRAPPER(dtfsm)
14977extern void dtfsm(
14978 const char *transr,
14979 const char *side,
14980 const char *uplo,
14981 const char *trans,
14982 const char *diag,
14983 const ptrdiff_t *m,
14984 const ptrdiff_t *n,
14985 const double *alpha,
14986 const double *a,
14987 double *b,
14988 const ptrdiff_t *ldb
14989);
14990
14991/* Source: dtftri.f */
14992#define dtftri FORTRAN_WRAPPER(dtftri)
14993extern void dtftri(
14994 const char *transr,
14995 const char *uplo,
14996 const char *diag,
14997 const ptrdiff_t *n,
14998 double *a,
14999 ptrdiff_t *info
15000);
15001
15002/* Source: dtfttp.f */
15003#define dtfttp FORTRAN_WRAPPER(dtfttp)
15004extern void dtfttp(
15005 const char *transr,
15006 const char *uplo,
15007 const ptrdiff_t *n,
15008 const double *arf,
15009 double *ap,
15010 ptrdiff_t *info
15011);
15012
15013/* Source: dtfttr.f */
15014#define dtfttr FORTRAN_WRAPPER(dtfttr)
15015extern void dtfttr(
15016 const char *transr,
15017 const char *uplo,
15018 const ptrdiff_t *n,
15019 const double *arf,
15020 double *a,
15021 const ptrdiff_t *lda,
15022 ptrdiff_t *info
15023);
15024
15025/* Source: dtgevc.f */
15026#define dtgevc FORTRAN_WRAPPER(dtgevc)
15027extern void dtgevc(
15028 const char *side,
15029 const char *howmny,
15030 const ptrdiff_t *select,
15031 const ptrdiff_t *n,
15032 const double *s,
15033 const ptrdiff_t *lds,
15034 const double *p,
15035 const ptrdiff_t *ldp,
15036 double *vl,
15037 const ptrdiff_t *ldvl,
15038 double *vr,
15039 const ptrdiff_t *ldvr,
15040 const ptrdiff_t *mm,
15041 ptrdiff_t *m,
15042 double *work,
15043 ptrdiff_t *info
15044);
15045
15046/* Source: dtgex2.f */
15047#define dtgex2 FORTRAN_WRAPPER(dtgex2)
15048extern void dtgex2(
15049 const ptrdiff_t *wantq,
15050 const ptrdiff_t *wantz,
15051 const ptrdiff_t *n,
15052 double *a,
15053 const ptrdiff_t *lda,
15054 double *b,
15055 const ptrdiff_t *ldb,
15056 double *q,
15057 const ptrdiff_t *ldq,
15058 double *z,
15059 const ptrdiff_t *ldz,
15060 const ptrdiff_t *j1_,
15061 const ptrdiff_t *n1,
15062 const ptrdiff_t *n2,
15063 double *work,
15064 const ptrdiff_t *lwork,
15065 ptrdiff_t *info
15066);
15067
15068/* Source: dtgexc.f */
15069#define dtgexc FORTRAN_WRAPPER(dtgexc)
15070extern void dtgexc(
15071 const ptrdiff_t *wantq,
15072 const ptrdiff_t *wantz,
15073 const ptrdiff_t *n,
15074 double *a,
15075 const ptrdiff_t *lda,
15076 double *b,
15077 const ptrdiff_t *ldb,
15078 double *q,
15079 const ptrdiff_t *ldq,
15080 double *z,
15081 const ptrdiff_t *ldz,
15082 ptrdiff_t *ifst,
15083 ptrdiff_t *ilst,
15084 double *work,
15085 const ptrdiff_t *lwork,
15086 ptrdiff_t *info
15087);
15088
15089/* Source: dtgsen.f */
15090#define dtgsen FORTRAN_WRAPPER(dtgsen)
15091extern void dtgsen(
15092 const ptrdiff_t *ijob,
15093 const ptrdiff_t *wantq,
15094 const ptrdiff_t *wantz,
15095 const ptrdiff_t *select,
15096 const ptrdiff_t *n,
15097 double *a,
15098 const ptrdiff_t *lda,
15099 double *b,
15100 const ptrdiff_t *ldb,
15101 double *alphar,
15102 double *alphai,
15103 double *beta,
15104 double *q,
15105 const ptrdiff_t *ldq,
15106 double *z,
15107 const ptrdiff_t *ldz,
15108 ptrdiff_t *m,
15109 double *pl,
15110 double *pr,
15111 double *dif,
15112 double *work,
15113 const ptrdiff_t *lwork,
15114 ptrdiff_t *iwork,
15115 const ptrdiff_t *liwork,
15116 ptrdiff_t *info
15117);
15118
15119/* Source: dtgsja.f */
15120#define dtgsja FORTRAN_WRAPPER(dtgsja)
15121extern void dtgsja(
15122 const char *jobu,
15123 const char *jobv,
15124 const char *jobq,
15125 const ptrdiff_t *m,
15126 const ptrdiff_t *p,
15127 const ptrdiff_t *n,
15128 const ptrdiff_t *k,
15129 const ptrdiff_t *l,
15130 double *a,
15131 const ptrdiff_t *lda,
15132 double *b,
15133 const ptrdiff_t *ldb,
15134 const double *tola,
15135 const double *tolb,
15136 double *alpha,
15137 double *beta,
15138 double *u,
15139 const ptrdiff_t *ldu,
15140 double *v,
15141 const ptrdiff_t *ldv,
15142 double *q,
15143 const ptrdiff_t *ldq,
15144 double *work,
15145 ptrdiff_t *ncycle,
15146 ptrdiff_t *info
15147);
15148
15149/* Source: dtgsna.f */
15150#define dtgsna FORTRAN_WRAPPER(dtgsna)
15151extern void dtgsna(
15152 const char *job,
15153 const char *howmny,
15154 const ptrdiff_t *select,
15155 const ptrdiff_t *n,
15156 const double *a,
15157 const ptrdiff_t *lda,
15158 const double *b,
15159 const ptrdiff_t *ldb,
15160 const double *vl,
15161 const ptrdiff_t *ldvl,
15162 const double *vr,
15163 const ptrdiff_t *ldvr,
15164 double *s,
15165 double *dif,
15166 const ptrdiff_t *mm,
15167 ptrdiff_t *m,
15168 double *work,
15169 const ptrdiff_t *lwork,
15170 ptrdiff_t *iwork,
15171 ptrdiff_t *info
15172);
15173
15174/* Source: dtgsy2.f */
15175#define dtgsy2 FORTRAN_WRAPPER(dtgsy2)
15176extern void dtgsy2(
15177 const char *trans,
15178 const ptrdiff_t *ijob,
15179 const ptrdiff_t *m,
15180 const ptrdiff_t *n,
15181 const double *a,
15182 const ptrdiff_t *lda,
15183 const double *b,
15184 const ptrdiff_t *ldb,
15185 double *c,
15186 const ptrdiff_t *ldc,
15187 const double *d,
15188 const ptrdiff_t *ldd,
15189 const double *e,
15190 const ptrdiff_t *lde,
15191 double *f,
15192 const ptrdiff_t *ldf,
15193 double *scale,
15194 double *rdsum,
15195 double *rdscal,
15196 ptrdiff_t *iwork,
15197 ptrdiff_t *pq,
15198 ptrdiff_t *info
15199);
15200
15201/* Source: dtgsyl.f */
15202#define dtgsyl FORTRAN_WRAPPER(dtgsyl)
15203extern void dtgsyl(
15204 const char *trans,
15205 const ptrdiff_t *ijob,
15206 const ptrdiff_t *m,
15207 const ptrdiff_t *n,
15208 const double *a,
15209 const ptrdiff_t *lda,
15210 const double *b,
15211 const ptrdiff_t *ldb,
15212 double *c,
15213 const ptrdiff_t *ldc,
15214 const double *d,
15215 const ptrdiff_t *ldd,
15216 const double *e,
15217 const ptrdiff_t *lde,
15218 double *f,
15219 const ptrdiff_t *ldf,
15220 double *scale,
15221 double *dif,
15222 double *work,
15223 const ptrdiff_t *lwork,
15224 ptrdiff_t *iwork,
15225 ptrdiff_t *info
15226);
15227
15228/* Source: dtpcon.f */
15229#define dtpcon FORTRAN_WRAPPER(dtpcon)
15230extern void dtpcon(
15231 const char *norm,
15232 const char *uplo,
15233 const char *diag,
15234 const ptrdiff_t *n,
15235 const double *ap,
15236 double *rcond,
15237 double *work,
15238 ptrdiff_t *iwork,
15239 ptrdiff_t *info
15240);
15241
15242/* Source: dtplqt.f */
15243#define dtplqt FORTRAN_WRAPPER(dtplqt)
15244extern void dtplqt(
15245 const ptrdiff_t *m,
15246 const ptrdiff_t *n,
15247 const ptrdiff_t *l,
15248 const ptrdiff_t *mb,
15249 double *a,
15250 const ptrdiff_t *lda,
15251 double *b,
15252 const ptrdiff_t *ldb,
15253 double *t,
15254 const ptrdiff_t *ldt,
15255 double *work,
15256 ptrdiff_t *info
15257);
15258
15259/* Source: dtplqt2.f */
15260#define dtplqt2 FORTRAN_WRAPPER(dtplqt2)
15261extern void dtplqt2(
15262 const ptrdiff_t *m,
15263 const ptrdiff_t *n,
15264 const ptrdiff_t *l,
15265 double *a,
15266 const ptrdiff_t *lda,
15267 double *b,
15268 const ptrdiff_t *ldb,
15269 double *t,
15270 const ptrdiff_t *ldt,
15271 ptrdiff_t *info
15272);
15273
15274/* Source: dtpmlqt.f */
15275#define dtpmlqt FORTRAN_WRAPPER(dtpmlqt)
15276extern void dtpmlqt(
15277 const char *side,
15278 const char *trans,
15279 const ptrdiff_t *m,
15280 const ptrdiff_t *n,
15281 const ptrdiff_t *k,
15282 const ptrdiff_t *l,
15283 const ptrdiff_t *mb,
15284 const double *v,
15285 const ptrdiff_t *ldv,
15286 const double *t,
15287 const ptrdiff_t *ldt,
15288 double *a,
15289 const ptrdiff_t *lda,
15290 double *b,
15291 const ptrdiff_t *ldb,
15292 double *work,
15293 ptrdiff_t *info
15294);
15295
15296/* Source: dtpmqrt.f */
15297#define dtpmqrt FORTRAN_WRAPPER(dtpmqrt)
15298extern void dtpmqrt(
15299 const char *side,
15300 const char *trans,
15301 const ptrdiff_t *m,
15302 const ptrdiff_t *n,
15303 const ptrdiff_t *k,
15304 const ptrdiff_t *l,
15305 const ptrdiff_t *nb,
15306 const double *v,
15307 const ptrdiff_t *ldv,
15308 const double *t,
15309 const ptrdiff_t *ldt,
15310 double *a,
15311 const ptrdiff_t *lda,
15312 double *b,
15313 const ptrdiff_t *ldb,
15314 double *work,
15315 ptrdiff_t *info
15316);
15317
15318/* Source: dtpqrt.f */
15319#define dtpqrt FORTRAN_WRAPPER(dtpqrt)
15320extern void dtpqrt(
15321 const ptrdiff_t *m,
15322 const ptrdiff_t *n,
15323 const ptrdiff_t *l,
15324 const ptrdiff_t *nb,
15325 double *a,
15326 const ptrdiff_t *lda,
15327 double *b,
15328 const ptrdiff_t *ldb,
15329 double *t,
15330 const ptrdiff_t *ldt,
15331 double *work,
15332 ptrdiff_t *info
15333);
15334
15335/* Source: dtpqrt2.f */
15336#define dtpqrt2 FORTRAN_WRAPPER(dtpqrt2)
15337extern void dtpqrt2(
15338 const ptrdiff_t *m,
15339 const ptrdiff_t *n,
15340 const ptrdiff_t *l,
15341 double *a,
15342 const ptrdiff_t *lda,
15343 double *b,
15344 const ptrdiff_t *ldb,
15345 double *t,
15346 const ptrdiff_t *ldt,
15347 ptrdiff_t *info
15348);
15349
15350/* Source: dtprfb.f */
15351#define dtprfb FORTRAN_WRAPPER(dtprfb)
15352extern void dtprfb(
15353 const char *side,
15354 const char *trans,
15355 const char *direct,
15356 const char *storev,
15357 const ptrdiff_t *m,
15358 const ptrdiff_t *n,
15359 const ptrdiff_t *k,
15360 const ptrdiff_t *l,
15361 const double *v,
15362 const ptrdiff_t *ldv,
15363 const double *t,
15364 const ptrdiff_t *ldt,
15365 double *a,
15366 const ptrdiff_t *lda,
15367 double *b,
15368 const ptrdiff_t *ldb,
15369 double *work,
15370 const ptrdiff_t *ldwork
15371);
15372
15373/* Source: dtprfs.f */
15374#define dtprfs FORTRAN_WRAPPER(dtprfs)
15375extern void dtprfs(
15376 const char *uplo,
15377 const char *trans,
15378 const char *diag,
15379 const ptrdiff_t *n,
15380 const ptrdiff_t *nrhs,
15381 const double *ap,
15382 const double *b,
15383 const ptrdiff_t *ldb,
15384 const double *x,
15385 const ptrdiff_t *ldx,
15386 double *ferr,
15387 double *berr,
15388 double *work,
15389 ptrdiff_t *iwork,
15390 ptrdiff_t *info
15391);
15392
15393/* Source: dtptri.f */
15394#define dtptri FORTRAN_WRAPPER(dtptri)
15395extern void dtptri(
15396 const char *uplo,
15397 const char *diag,
15398 const ptrdiff_t *n,
15399 double *ap,
15400 ptrdiff_t *info
15401);
15402
15403/* Source: dtptrs.f */
15404#define dtptrs FORTRAN_WRAPPER(dtptrs)
15405extern void dtptrs(
15406 const char *uplo,
15407 const char *trans,
15408 const char *diag,
15409 const ptrdiff_t *n,
15410 const ptrdiff_t *nrhs,
15411 const double *ap,
15412 double *b,
15413 const ptrdiff_t *ldb,
15414 ptrdiff_t *info
15415);
15416
15417/* Source: dtpttf.f */
15418#define dtpttf FORTRAN_WRAPPER(dtpttf)
15419extern void dtpttf(
15420 const char *transr,
15421 const char *uplo,
15422 const ptrdiff_t *n,
15423 const double *ap,
15424 double *arf,
15425 ptrdiff_t *info
15426);
15427
15428/* Source: dtpttr.f */
15429#define dtpttr FORTRAN_WRAPPER(dtpttr)
15430extern void dtpttr(
15431 const char *uplo,
15432 const ptrdiff_t *n,
15433 const double *ap,
15434 double *a,
15435 const ptrdiff_t *lda,
15436 ptrdiff_t *info
15437);
15438
15439/* Source: dtrcon.f */
15440#define dtrcon FORTRAN_WRAPPER(dtrcon)
15441extern void dtrcon(
15442 const char *norm,
15443 const char *uplo,
15444 const char *diag,
15445 const ptrdiff_t *n,
15446 const double *a,
15447 const ptrdiff_t *lda,
15448 double *rcond,
15449 double *work,
15450 ptrdiff_t *iwork,
15451 ptrdiff_t *info
15452);
15453
15454/* Source: dtrevc.f */
15455#define dtrevc FORTRAN_WRAPPER(dtrevc)
15456extern void dtrevc(
15457 const char *side,
15458 const char *howmny,
15459 ptrdiff_t *select,
15460 const ptrdiff_t *n,
15461 const double *t,
15462 const ptrdiff_t *ldt,
15463 double *vl,
15464 const ptrdiff_t *ldvl,
15465 double *vr,
15466 const ptrdiff_t *ldvr,
15467 const ptrdiff_t *mm,
15468 ptrdiff_t *m,
15469 double *work,
15470 ptrdiff_t *info
15471);
15472
15473/* Source: dtrevc3.f */
15474#define dtrevc3 FORTRAN_WRAPPER(dtrevc3)
15475extern void dtrevc3(
15476 char *side,
15477 char *howmny,
15478 ptrdiff_t *select,
15479 ptrdiff_t *n,
15480 double *t,
15481 ptrdiff_t *ldt,
15482 double *vl,
15483 ptrdiff_t *ldvl,
15484 double *vr,
15485 ptrdiff_t *ldvr,
15486 ptrdiff_t *mm,
15487 ptrdiff_t *m,
15488 double *work,
15489 ptrdiff_t *lwork,
15490 ptrdiff_t *info
15491);
15492
15493/* Source: dtrexc.f */
15494#define dtrexc FORTRAN_WRAPPER(dtrexc)
15495extern void dtrexc(
15496 const char *compq,
15497 const ptrdiff_t *n,
15498 double *t,
15499 const ptrdiff_t *ldt,
15500 double *q,
15501 const ptrdiff_t *ldq,
15502 ptrdiff_t *ifst,
15503 ptrdiff_t *ilst,
15504 double *work,
15505 ptrdiff_t *info
15506);
15507
15508/* Source: dtrrfs.f */
15509#define dtrrfs FORTRAN_WRAPPER(dtrrfs)
15510extern void dtrrfs(
15511 const char *uplo,
15512 const char *trans,
15513 const char *diag,
15514 const ptrdiff_t *n,
15515 const ptrdiff_t *nrhs,
15516 const double *a,
15517 const ptrdiff_t *lda,
15518 const double *b,
15519 const ptrdiff_t *ldb,
15520 const double *x,
15521 const ptrdiff_t *ldx,
15522 double *ferr,
15523 double *berr,
15524 double *work,
15525 ptrdiff_t *iwork,
15526 ptrdiff_t *info
15527);
15528
15529/* Source: dtrsen.f */
15530#define dtrsen FORTRAN_WRAPPER(dtrsen)
15531extern void dtrsen(
15532 const char *job,
15533 const char *compq,
15534 const ptrdiff_t *select,
15535 const ptrdiff_t *n,
15536 double *t,
15537 const ptrdiff_t *ldt,
15538 double *q,
15539 const ptrdiff_t *ldq,
15540 double *wr,
15541 double *wi,
15542 ptrdiff_t *m,
15543 double *s,
15544 double *sep,
15545 double *work,
15546 const ptrdiff_t *lwork,
15547 ptrdiff_t *iwork,
15548 const ptrdiff_t *liwork,
15549 ptrdiff_t *info
15550);
15551
15552/* Source: dtrsna.f */
15553#define dtrsna FORTRAN_WRAPPER(dtrsna)
15554extern void dtrsna(
15555 const char *job,
15556 const char *howmny,
15557 const ptrdiff_t *select,
15558 const ptrdiff_t *n,
15559 const double *t,
15560 const ptrdiff_t *ldt,
15561 const double *vl,
15562 const ptrdiff_t *ldvl,
15563 const double *vr,
15564 const ptrdiff_t *ldvr,
15565 double *s,
15566 double *sep,
15567 const ptrdiff_t *mm,
15568 ptrdiff_t *m,
15569 double *work,
15570 const ptrdiff_t *ldwork,
15571 ptrdiff_t *iwork,
15572 ptrdiff_t *info
15573);
15574
15575/* Source: dtrsyl.f */
15576#define dtrsyl FORTRAN_WRAPPER(dtrsyl)
15577extern void dtrsyl(
15578 const char *trana,
15579 const char *tranb,
15580 const ptrdiff_t *isgn,
15581 const ptrdiff_t *m,
15582 const ptrdiff_t *n,
15583 const double *a,
15584 const ptrdiff_t *lda,
15585 const double *b,
15586 const ptrdiff_t *ldb,
15587 double *c,
15588 const ptrdiff_t *ldc,
15589 double *scale,
15590 ptrdiff_t *info
15591);
15592
15593/* Source: dtrti2.f */
15594#define dtrti2 FORTRAN_WRAPPER(dtrti2)
15595extern void dtrti2(
15596 const char *uplo,
15597 const char *diag,
15598 const ptrdiff_t *n,
15599 double *a,
15600 const ptrdiff_t *lda,
15601 ptrdiff_t *info
15602);
15603
15604/* Source: dtrtri.f */
15605#define dtrtri FORTRAN_WRAPPER(dtrtri)
15606extern void dtrtri(
15607 const char *uplo,
15608 const char *diag,
15609 const ptrdiff_t *n,
15610 double *a,
15611 const ptrdiff_t *lda,
15612 ptrdiff_t *info
15613);
15614
15615/* Source: dtrtrs.f */
15616#define dtrtrs FORTRAN_WRAPPER(dtrtrs)
15617extern void dtrtrs(
15618 const char *uplo,
15619 const char *trans,
15620 const char *diag,
15621 const ptrdiff_t *n,
15622 const ptrdiff_t *nrhs,
15623 const double *a,
15624 const ptrdiff_t *lda,
15625 double *b,
15626 const ptrdiff_t *ldb,
15627 ptrdiff_t *info
15628);
15629
15630/* Source: dtrttf.f */
15631#define dtrttf FORTRAN_WRAPPER(dtrttf)
15632extern void dtrttf(
15633 const char *transr,
15634 const char *uplo,
15635 const ptrdiff_t *n,
15636 const double *a,
15637 const ptrdiff_t *lda,
15638 double *arf,
15639 ptrdiff_t *info
15640);
15641
15642/* Source: dtrttp.f */
15643#define dtrttp FORTRAN_WRAPPER(dtrttp)
15644extern void dtrttp(
15645 const char *uplo,
15646 const ptrdiff_t *n,
15647 const double *a,
15648 const ptrdiff_t *lda,
15649 double *ap,
15650 ptrdiff_t *info
15651);
15652
15653/* Source: dtzrzf.f */
15654#define dtzrzf FORTRAN_WRAPPER(dtzrzf)
15655extern void dtzrzf(
15656 const ptrdiff_t *m,
15657 const ptrdiff_t *n,
15658 double *a,
15659 const ptrdiff_t *lda,
15660 double *tau,
15661 double *work,
15662 const ptrdiff_t *lwork,
15663 ptrdiff_t *info
15664);
15665
15666/* Source: dzsum1.f */
15667#define dzsum1 FORTRAN_WRAPPER(dzsum1)
15668extern double dzsum1(
15669 const ptrdiff_t *n,
15670 const double *cx,
15671 const ptrdiff_t *incx
15672);
15673
15674/* Source: icmax1.f */
15675#define icmax1 FORTRAN_WRAPPER(icmax1)
15676extern ptrdiff_t icmax1(
15677 const ptrdiff_t *n,
15678 const float *cx,
15679 const ptrdiff_t *incx
15680);
15681
15682/* Source: ieeeck.f */
15683#define ieeeck FORTRAN_WRAPPER(ieeeck)
15684extern ptrdiff_t ieeeck(
15685 const ptrdiff_t *ispec,
15686 const float *zero,
15687 const float *one
15688);
15689
15690/* Source: ilaclc.f */
15691#define ilaclc FORTRAN_WRAPPER(ilaclc)
15692extern ptrdiff_t ilaclc(
15693 const ptrdiff_t *m,
15694 const ptrdiff_t *n,
15695 const float *a,
15696 const ptrdiff_t *lda
15697);
15698
15699/* Source: ilaclr.f */
15700#define ilaclr FORTRAN_WRAPPER(ilaclr)
15701extern ptrdiff_t ilaclr(
15702 const ptrdiff_t *m,
15703 const ptrdiff_t *n,
15704 const float *a,
15705 const ptrdiff_t *lda
15706);
15707
15708/* Source: iladiag.f */
15709#define iladiag FORTRAN_WRAPPER(iladiag)
15710extern ptrdiff_t iladiag(
15711 const char *diag
15712);
15713
15714/* Source: iladlc.f */
15715#define iladlc FORTRAN_WRAPPER(iladlc)
15716extern ptrdiff_t iladlc(
15717 const ptrdiff_t *m,
15718 const ptrdiff_t *n,
15719 const double *a,
15720 const ptrdiff_t *lda
15721);
15722
15723/* Source: iladlr.f */
15724#define iladlr FORTRAN_WRAPPER(iladlr)
15725extern ptrdiff_t iladlr(
15726 const ptrdiff_t *m,
15727 const ptrdiff_t *n,
15728 const double *a,
15729 const ptrdiff_t *lda
15730);
15731
15732/* Source: ilaenv.f */
15733#define ilaenv FORTRAN_WRAPPER(ilaenv)
15734extern ptrdiff_t ilaenv(
15735 const ptrdiff_t *ispec,
15736 const char *name,
15737 const char *opts,
15738 const ptrdiff_t *n1,
15739 const ptrdiff_t *n2,
15740 const ptrdiff_t *n3,
15741 const ptrdiff_t *n4,
15742 ptrdiff_t name_len,
15743 ptrdiff_t opts_len
15744);
15745
15746/* Source: ilaprec.f */
15747#define ilaprec FORTRAN_WRAPPER(ilaprec)
15748extern ptrdiff_t ilaprec(
15749 const char *prec
15750);
15751
15752/* Source: ilaslc.f */
15753#define ilaslc FORTRAN_WRAPPER(ilaslc)
15754extern ptrdiff_t ilaslc(
15755 const ptrdiff_t *m,
15756 const ptrdiff_t *n,
15757 const float *a,
15758 const ptrdiff_t *lda
15759);
15760
15761/* Source: ilaslr.f */
15762#define ilaslr FORTRAN_WRAPPER(ilaslr)
15763extern ptrdiff_t ilaslr(
15764 const ptrdiff_t *m,
15765 const ptrdiff_t *n,
15766 const float *a,
15767 const ptrdiff_t *lda
15768);
15769
15770/* Source: ilatrans.f */
15771#define ilatrans FORTRAN_WRAPPER(ilatrans)
15772extern ptrdiff_t ilatrans(
15773 const char *trans
15774);
15775
15776/* Source: ilauplo.f */
15777#define ilauplo FORTRAN_WRAPPER(ilauplo)
15778extern ptrdiff_t ilauplo(
15779 const char *uplo
15780);
15781
15782/* Source: ilaver.f */
15783#define ilaver FORTRAN_WRAPPER(ilaver)
15784extern void ilaver(
15785 ptrdiff_t *vers_major,
15786 ptrdiff_t *vers_minor,
15787 ptrdiff_t *vers_patch
15788);
15789
15790/* Source: ilazlc.f */
15791#define ilazlc FORTRAN_WRAPPER(ilazlc)
15792extern ptrdiff_t ilazlc(
15793 const ptrdiff_t *m,
15794 const ptrdiff_t *n,
15795 const double *a,
15796 const ptrdiff_t *lda
15797);
15798
15799/* Source: ilazlr.f */
15800#define ilazlr FORTRAN_WRAPPER(ilazlr)
15801extern ptrdiff_t ilazlr(
15802 const ptrdiff_t *m,
15803 const ptrdiff_t *n,
15804 const double *a,
15805 const ptrdiff_t *lda
15806);
15807
15808/* Source: iparam2stage.f */
15809#define iparam2stage FORTRAN_WRAPPER(iparam2stage)
15810extern ptrdiff_t iparam2stage(
15811 ptrdiff_t *ispec,
15812 char *name,
15813 char *opts,
15814 ptrdiff_t *ni,
15815 ptrdiff_t *nbi,
15816 ptrdiff_t *ibi,
15817 ptrdiff_t *nxi,
15818 ptrdiff_t name_len,
15819 ptrdiff_t opts_len
15820);
15821
15822/* Source: iparmq.f */
15823#define iparmq FORTRAN_WRAPPER(iparmq)
15824extern ptrdiff_t iparmq(
15825 const ptrdiff_t *ispec,
15826 const char *name,
15827 const char *opts,
15828 const ptrdiff_t *n,
15829 const ptrdiff_t *ilo,
15830 const ptrdiff_t *ihi,
15831 const ptrdiff_t *lwork
15832);
15833
15834/* Source: izmax1.f */
15835#define izmax1 FORTRAN_WRAPPER(izmax1)
15836extern ptrdiff_t izmax1(
15837 const ptrdiff_t *n,
15838 const double *zx,
15839 const ptrdiff_t *incx
15840);
15841
15842/* Source: lsamen.f */
15843#define lsamen FORTRAN_WRAPPER(lsamen)
15844extern ptrdiff_t lsamen(
15845 const ptrdiff_t *n,
15846 const char *ca,
15847 const char *cb,
15848 ptrdiff_t ca_len,
15849 ptrdiff_t cb_len
15850);
15851
15852/* Source: sbbcsd.f */
15853#define sbbcsd FORTRAN_WRAPPER(sbbcsd)
15854extern void sbbcsd(
15855 const char *jobu1,
15856 const char *jobu2,
15857 const char *jobv1t,
15858 const char *jobv2t,
15859 const char *trans,
15860 const ptrdiff_t *m,
15861 const ptrdiff_t *p,
15862 const ptrdiff_t *q,
15863 float *theta,
15864 float *phi,
15865 float *u1,
15866 const ptrdiff_t *ldu1,
15867 float *u2,
15868 const ptrdiff_t *ldu2,
15869 float *v1t,
15870 const ptrdiff_t *ldv1t,
15871 float *v2t,
15872 const ptrdiff_t *ldv2t,
15873 float *b11d,
15874 float *b11e,
15875 float *b12d,
15876 float *b12e,
15877 float *b21d,
15878 float *b21e,
15879 float *b22d,
15880 float *b22e,
15881 float *work,
15882 const ptrdiff_t *lwork,
15883 ptrdiff_t *info
15884);
15885
15886/* Source: sbdsdc.f */
15887#define sbdsdc FORTRAN_WRAPPER(sbdsdc)
15888extern void sbdsdc(
15889 const char *uplo,
15890 const char *compq,
15891 const ptrdiff_t *n,
15892 float *d,
15893 float *e,
15894 float *u,
15895 const ptrdiff_t *ldu,
15896 float *vt,
15897 const ptrdiff_t *ldvt,
15898 float *q,
15899 ptrdiff_t *iq,
15900 float *work,
15901 ptrdiff_t *iwork,
15902 ptrdiff_t *info
15903);
15904
15905/* Source: sbdsqr.f */
15906#define sbdsqr FORTRAN_WRAPPER(sbdsqr)
15907extern void sbdsqr(
15908 const char *uplo,
15909 const ptrdiff_t *n,
15910 const ptrdiff_t *ncvt,
15911 const ptrdiff_t *nru,
15912 const ptrdiff_t *ncc,
15913 float *d,
15914 float *e,
15915 float *vt,
15916 const ptrdiff_t *ldvt,
15917 float *u,
15918 const ptrdiff_t *ldu,
15919 float *c,
15920 const ptrdiff_t *ldc,
15921 float *work,
15922 ptrdiff_t *info
15923);
15924
15925/* Source: sbdsvdx.f */
15926#define sbdsvdx FORTRAN_WRAPPER(sbdsvdx)
15927extern void sbdsvdx(
15928 const char *uplo,
15929 const char *jobz,
15930 const char *range,
15931 const ptrdiff_t *n,
15932 const float *d,
15933 const float *e,
15934 const float *vl,
15935 const float *vu,
15936 const ptrdiff_t *il,
15937 const ptrdiff_t *iu,
15938 ptrdiff_t *ns,
15939 float *s,
15940 float *z,
15941 const ptrdiff_t *ldz,
15942 float *work,
15943 ptrdiff_t *iwork,
15944 ptrdiff_t *info
15945);
15946
15947/* Source: scsum1.f */
15948#define scsum1 FORTRAN_WRAPPER(scsum1)
15949#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15950extern double scsum1(
15951#else
15952extern float scsum1(
15953#endif
15954 const ptrdiff_t *n,
15955 const float *cx,
15956 const ptrdiff_t *incx
15957);
15958
15959/* Source: sdisna.f */
15960#define sdisna FORTRAN_WRAPPER(sdisna)
15961extern void sdisna(
15962 const char *job,
15963 const ptrdiff_t *m,
15964 const ptrdiff_t *n,
15965 const float *d,
15966 float *sep,
15967 ptrdiff_t *info
15968);
15969
15970/* Source: sgbbrd.f */
15971#define sgbbrd FORTRAN_WRAPPER(sgbbrd)
15972extern void sgbbrd(
15973 const char *vect,
15974 const ptrdiff_t *m,
15975 const ptrdiff_t *n,
15976 const ptrdiff_t *ncc,
15977 const ptrdiff_t *kl,
15978 const ptrdiff_t *ku,
15979 float *ab,
15980 const ptrdiff_t *ldab,
15981 float *d,
15982 float *e,
15983 float *q,
15984 const ptrdiff_t *ldq,
15985 float *pt,
15986 const ptrdiff_t *ldpt,
15987 float *c,
15988 const ptrdiff_t *ldc,
15989 float *work,
15990 ptrdiff_t *info
15991);
15992
15993/* Source: sgbcon.f */
15994#define sgbcon FORTRAN_WRAPPER(sgbcon)
15995extern void sgbcon(
15996 const char *norm,
15997 const ptrdiff_t *n,
15998 const ptrdiff_t *kl,
15999 const ptrdiff_t *ku,
16000 const float *ab,
16001 const ptrdiff_t *ldab,
16002 const ptrdiff_t *ipiv,
16003 const float *anorm,
16004 float *rcond,
16005 float *work,
16006 ptrdiff_t *iwork,
16007 ptrdiff_t *info
16008);
16009
16010/* Source: sgbequ.f */
16011#define sgbequ FORTRAN_WRAPPER(sgbequ)
16012extern void sgbequ(
16013 const ptrdiff_t *m,
16014 const ptrdiff_t *n,
16015 const ptrdiff_t *kl,
16016 const ptrdiff_t *ku,
16017 const float *ab,
16018 const ptrdiff_t *ldab,
16019 float *r,
16020 float *c,
16021 float *rowcnd,
16022 float *colcnd,
16023 float *amax,
16024 ptrdiff_t *info
16025);
16026
16027/* Source: sgbequb.f */
16028#define sgbequb FORTRAN_WRAPPER(sgbequb)
16029extern void sgbequb(
16030 const ptrdiff_t *m,
16031 const ptrdiff_t *n,
16032 const ptrdiff_t *kl,
16033 const ptrdiff_t *ku,
16034 const float *ab,
16035 const ptrdiff_t *ldab,
16036 float *r,
16037 float *c,
16038 float *rowcnd,
16039 float *colcnd,
16040 float *amax,
16041 ptrdiff_t *info
16042);
16043
16044/* Source: sgbrfs.f */
16045#define sgbrfs FORTRAN_WRAPPER(sgbrfs)
16046extern void sgbrfs(
16047 const char *trans,
16048 const ptrdiff_t *n,
16049 const ptrdiff_t *kl,
16050 const ptrdiff_t *ku,
16051 const ptrdiff_t *nrhs,
16052 const float *ab,
16053 const ptrdiff_t *ldab,
16054 const float *afb,
16055 const ptrdiff_t *ldafb,
16056 const ptrdiff_t *ipiv,
16057 const float *b,
16058 const ptrdiff_t *ldb,
16059 float *x,
16060 const ptrdiff_t *ldx,
16061 float *ferr,
16062 float *berr,
16063 float *work,
16064 ptrdiff_t *iwork,
16065 ptrdiff_t *info
16066);
16067
16068/* Source: sgbsv.f */
16069#define sgbsv FORTRAN_WRAPPER(sgbsv)
16070extern void sgbsv(
16071 const ptrdiff_t *n,
16072 const ptrdiff_t *kl,
16073 const ptrdiff_t *ku,
16074 const ptrdiff_t *nrhs,
16075 float *ab,
16076 const ptrdiff_t *ldab,
16077 ptrdiff_t *ipiv,
16078 float *b,
16079 const ptrdiff_t *ldb,
16080 ptrdiff_t *info
16081);
16082
16083/* Source: sgbsvx.f */
16084#define sgbsvx FORTRAN_WRAPPER(sgbsvx)
16085extern void sgbsvx(
16086 const char *fact,
16087 const char *trans,
16088 const ptrdiff_t *n,
16089 const ptrdiff_t *kl,
16090 const ptrdiff_t *ku,
16091 const ptrdiff_t *nrhs,
16092 float *ab,
16093 const ptrdiff_t *ldab,
16094 float *afb,
16095 const ptrdiff_t *ldafb,
16096 ptrdiff_t *ipiv,
16097 char *equed,
16098 float *r,
16099 float *c,
16100 float *b,
16101 const ptrdiff_t *ldb,
16102 float *x,
16103 const ptrdiff_t *ldx,
16104 float *rcond,
16105 float *ferr,
16106 float *berr,
16107 float *work,
16108 ptrdiff_t *iwork,
16109 ptrdiff_t *info
16110);
16111
16112/* Source: sgbtf2.f */
16113#define sgbtf2 FORTRAN_WRAPPER(sgbtf2)
16114extern void sgbtf2(
16115 const ptrdiff_t *m,
16116 const ptrdiff_t *n,
16117 const ptrdiff_t *kl,
16118 const ptrdiff_t *ku,
16119 float *ab,
16120 const ptrdiff_t *ldab,
16121 ptrdiff_t *ipiv,
16122 ptrdiff_t *info
16123);
16124
16125/* Source: sgbtrf.f */
16126#define sgbtrf FORTRAN_WRAPPER(sgbtrf)
16127extern void sgbtrf(
16128 const ptrdiff_t *m,
16129 const ptrdiff_t *n,
16130 const ptrdiff_t *kl,
16131 const ptrdiff_t *ku,
16132 float *ab,
16133 const ptrdiff_t *ldab,
16134 ptrdiff_t *ipiv,
16135 ptrdiff_t *info
16136);
16137
16138/* Source: sgbtrs.f */
16139#define sgbtrs FORTRAN_WRAPPER(sgbtrs)
16140extern void sgbtrs(
16141 const char *trans,
16142 const ptrdiff_t *n,
16143 const ptrdiff_t *kl,
16144 const ptrdiff_t *ku,
16145 const ptrdiff_t *nrhs,
16146 const float *ab,
16147 const ptrdiff_t *ldab,
16148 const ptrdiff_t *ipiv,
16149 float *b,
16150 const ptrdiff_t *ldb,
16151 ptrdiff_t *info
16152);
16153
16154/* Source: sgebak.f */
16155#define sgebak FORTRAN_WRAPPER(sgebak)
16156extern void sgebak(
16157 const char *job,
16158 const char *side,
16159 const ptrdiff_t *n,
16160 const ptrdiff_t *ilo,
16161 const ptrdiff_t *ihi,
16162 const float *scale,
16163 const ptrdiff_t *m,
16164 float *v,
16165 const ptrdiff_t *ldv,
16166 ptrdiff_t *info
16167);
16168
16169/* Source: sgebal.f */
16170#define sgebal FORTRAN_WRAPPER(sgebal)
16171extern void sgebal(
16172 const char *job,
16173 const ptrdiff_t *n,
16174 float *a,
16175 const ptrdiff_t *lda,
16176 ptrdiff_t *ilo,
16177 ptrdiff_t *ihi,
16178 float *scale,
16179 ptrdiff_t *info
16180);
16181
16182/* Source: sgebd2.f */
16183#define sgebd2 FORTRAN_WRAPPER(sgebd2)
16184extern void sgebd2(
16185 const ptrdiff_t *m,
16186 const ptrdiff_t *n,
16187 float *a,
16188 const ptrdiff_t *lda,
16189 float *d,
16190 float *e,
16191 float *tauq,
16192 float *taup,
16193 float *work,
16194 ptrdiff_t *info
16195);
16196
16197/* Source: sgebrd.f */
16198#define sgebrd FORTRAN_WRAPPER(sgebrd)
16199extern void sgebrd(
16200 const ptrdiff_t *m,
16201 const ptrdiff_t *n,
16202 float *a,
16203 const ptrdiff_t *lda,
16204 float *d,
16205 float *e,
16206 float *tauq,
16207 float *taup,
16208 float *work,
16209 const ptrdiff_t *lwork,
16210 ptrdiff_t *info
16211);
16212
16213/* Source: sgecon.f */
16214#define sgecon FORTRAN_WRAPPER(sgecon)
16215extern void sgecon(
16216 const char *norm,
16217 const ptrdiff_t *n,
16218 const float *a,
16219 const ptrdiff_t *lda,
16220 const float *anorm,
16221 float *rcond,
16222 float *work,
16223 ptrdiff_t *iwork,
16224 ptrdiff_t *info
16225);
16226
16227/* Source: sgeequ.f */
16228#define sgeequ FORTRAN_WRAPPER(sgeequ)
16229extern void sgeequ(
16230 const ptrdiff_t *m,
16231 const ptrdiff_t *n,
16232 const float *a,
16233 const ptrdiff_t *lda,
16234 float *r,
16235 float *c,
16236 float *rowcnd,
16237 float *colcnd,
16238 float *amax,
16239 ptrdiff_t *info
16240);
16241
16242/* Source: sgeequb.f */
16243#define sgeequb FORTRAN_WRAPPER(sgeequb)
16244extern void sgeequb(
16245 const ptrdiff_t *m,
16246 const ptrdiff_t *n,
16247 const float *a,
16248 const ptrdiff_t *lda,
16249 float *r,
16250 float *c,
16251 float *rowcnd,
16252 float *colcnd,
16253 float *amax,
16254 ptrdiff_t *info
16255);
16256
16257/* Source: sgees.f */
16258#define sgees FORTRAN_WRAPPER(sgees)
16259extern void sgees(
16260 const char *jobvs,
16261 const char *sort,
16262 ptrdiff_t (*select)(),
16263 const ptrdiff_t *n,
16264 float *a,
16265 const ptrdiff_t *lda,
16266 ptrdiff_t *sdim,
16267 float *wr,
16268 float *wi,
16269 float *vs,
16270 const ptrdiff_t *ldvs,
16271 float *work,
16272 const ptrdiff_t *lwork,
16273 ptrdiff_t *bwork,
16274 ptrdiff_t *info
16275);
16276
16277/* Source: sgeesx.f */
16278#define sgeesx FORTRAN_WRAPPER(sgeesx)
16279extern void sgeesx(
16280 const char *jobvs,
16281 const char *sort,
16282 ptrdiff_t (*select)(),
16283 const char *sense,
16284 const ptrdiff_t *n,
16285 float *a,
16286 const ptrdiff_t *lda,
16287 ptrdiff_t *sdim,
16288 float *wr,
16289 float *wi,
16290 float *vs,
16291 const ptrdiff_t *ldvs,
16292 float *rconde,
16293 float *rcondv,
16294 float *work,
16295 const ptrdiff_t *lwork,
16296 ptrdiff_t *iwork,
16297 const ptrdiff_t *liwork,
16298 ptrdiff_t *bwork,
16299 ptrdiff_t *info
16300);
16301
16302/* Source: sgeev.f */
16303#define sgeev FORTRAN_WRAPPER(sgeev)
16304extern void sgeev(
16305 const char *jobvl,
16306 const char *jobvr,
16307 const ptrdiff_t *n,
16308 float *a,
16309 const ptrdiff_t *lda,
16310 float *wr,
16311 float *wi,
16312 float *vl,
16313 const ptrdiff_t *ldvl,
16314 float *vr,
16315 const ptrdiff_t *ldvr,
16316 float *work,
16317 const ptrdiff_t *lwork,
16318 ptrdiff_t *info
16319);
16320
16321/* Source: sgeevx.f */
16322#define sgeevx FORTRAN_WRAPPER(sgeevx)
16323extern void sgeevx(
16324 const char *balanc,
16325 const char *jobvl,
16326 const char *jobvr,
16327 const char *sense,
16328 const ptrdiff_t *n,
16329 float *a,
16330 const ptrdiff_t *lda,
16331 float *wr,
16332 float *wi,
16333 float *vl,
16334 const ptrdiff_t *ldvl,
16335 float *vr,
16336 const ptrdiff_t *ldvr,
16337 ptrdiff_t *ilo,
16338 ptrdiff_t *ihi,
16339 float *scale,
16340 float *abnrm,
16341 float *rconde,
16342 float *rcondv,
16343 float *work,
16344 const ptrdiff_t *lwork,
16345 ptrdiff_t *iwork,
16346 ptrdiff_t *info
16347);
16348
16349/* Source: sgehd2.f */
16350#define sgehd2 FORTRAN_WRAPPER(sgehd2)
16351extern void sgehd2(
16352 const ptrdiff_t *n,
16353 const ptrdiff_t *ilo,
16354 const ptrdiff_t *ihi,
16355 float *a,
16356 const ptrdiff_t *lda,
16357 float *tau,
16358 float *work,
16359 ptrdiff_t *info
16360);
16361
16362/* Source: sgehrd.f */
16363#define sgehrd FORTRAN_WRAPPER(sgehrd)
16364extern void sgehrd(
16365 const ptrdiff_t *n,
16366 const ptrdiff_t *ilo,
16367 const ptrdiff_t *ihi,
16368 float *a,
16369 const ptrdiff_t *lda,
16370 float *tau,
16371 float *work,
16372 const ptrdiff_t *lwork,
16373 ptrdiff_t *info
16374);
16375
16376/* Source: sgejsv.f */
16377#define sgejsv FORTRAN_WRAPPER(sgejsv)
16378extern void sgejsv(
16379 const char *joba,
16380 const char *jobu,
16381 const char *jobv,
16382 const char *jobr,
16383 const char *jobt,
16384 const char *jobp,
16385 const ptrdiff_t *m,
16386 const ptrdiff_t *n,
16387 float *a,
16388 const ptrdiff_t *lda,
16389 float *sva,
16390 float *u,
16391 const ptrdiff_t *ldu,
16392 float *v,
16393 const ptrdiff_t *ldv,
16394 float *work,
16395 const ptrdiff_t *lwork,
16396 ptrdiff_t *iwork,
16397 ptrdiff_t *info
16398);
16399
16400/* Source: sgelq.f */
16401#define sgelq FORTRAN_WRAPPER(sgelq)
16402extern void sgelq(
16403 const ptrdiff_t *m,
16404 const ptrdiff_t *n,
16405 float *a,
16406 const ptrdiff_t *lda,
16407 float *t,
16408 const ptrdiff_t *tsize,
16409 float *work,
16410 const ptrdiff_t *lwork,
16411 ptrdiff_t *info
16412);
16413
16414/* Source: sgelq2.f */
16415#define sgelq2 FORTRAN_WRAPPER(sgelq2)
16416extern void sgelq2(
16417 const ptrdiff_t *m,
16418 const ptrdiff_t *n,
16419 float *a,
16420 const ptrdiff_t *lda,
16421 float *tau,
16422 float *work,
16423 ptrdiff_t *info
16424);
16425
16426/* Source: sgelqf.f */
16427#define sgelqf FORTRAN_WRAPPER(sgelqf)
16428extern void sgelqf(
16429 const ptrdiff_t *m,
16430 const ptrdiff_t *n,
16431 float *a,
16432 const ptrdiff_t *lda,
16433 float *tau,
16434 float *work,
16435 const ptrdiff_t *lwork,
16436 ptrdiff_t *info
16437);
16438
16439/* Source: sgelqt.f */
16440#define sgelqt FORTRAN_WRAPPER(sgelqt)
16441extern void sgelqt(
16442 const ptrdiff_t *m,
16443 const ptrdiff_t *n,
16444 const ptrdiff_t *mb,
16445 float *a,
16446 const ptrdiff_t *lda,
16447 float *t,
16448 const ptrdiff_t *ldt,
16449 float *work,
16450 ptrdiff_t *info
16451);
16452
16453/* Source: sgelqt3.f */
16454#define sgelqt3 FORTRAN_WRAPPER(sgelqt3)
16455extern void sgelqt3(
16456 const ptrdiff_t *m,
16457 const ptrdiff_t *n,
16458 float *a,
16459 const ptrdiff_t *lda,
16460 float *t,
16461 const ptrdiff_t *ldt,
16462 ptrdiff_t *info
16463);
16464
16465/* Source: sgels.f */
16466#define sgels FORTRAN_WRAPPER(sgels)
16467extern void sgels(
16468 const char *trans,
16469 const ptrdiff_t *m,
16470 const ptrdiff_t *n,
16471 const ptrdiff_t *nrhs,
16472 float *a,
16473 const ptrdiff_t *lda,
16474 float *b,
16475 const ptrdiff_t *ldb,
16476 float *work,
16477 const ptrdiff_t *lwork,
16478 ptrdiff_t *info
16479);
16480
16481/* Source: sgelsd.f */
16482#define sgelsd FORTRAN_WRAPPER(sgelsd)
16483extern void sgelsd(
16484 const ptrdiff_t *m,
16485 const ptrdiff_t *n,
16486 const ptrdiff_t *nrhs,
16487 const float *a,
16488 const ptrdiff_t *lda,
16489 float *b,
16490 const ptrdiff_t *ldb,
16491 float *s,
16492 const float *rcond,
16493 ptrdiff_t *rank,
16494 float *work,
16495 const ptrdiff_t *lwork,
16496 ptrdiff_t *iwork,
16497 ptrdiff_t *info
16498);
16499
16500/* Source: sgelss.f */
16501#define sgelss FORTRAN_WRAPPER(sgelss)
16502extern void sgelss(
16503 const ptrdiff_t *m,
16504 const ptrdiff_t *n,
16505 const ptrdiff_t *nrhs,
16506 float *a,
16507 const ptrdiff_t *lda,
16508 float *b,
16509 const ptrdiff_t *ldb,
16510 float *s,
16511 const float *rcond,
16512 ptrdiff_t *rank,
16513 float *work,
16514 const ptrdiff_t *lwork,
16515 ptrdiff_t *info
16516);
16517
16518/* Source: sgelsx.f */
16519#define sgelsx FORTRAN_WRAPPER(sgelsx)
16520extern void sgelsx(
16521 const ptrdiff_t *m,
16522 const ptrdiff_t *n,
16523 const ptrdiff_t *nrhs,
16524 float *a,
16525 const ptrdiff_t *lda,
16526 float *b,
16527 const ptrdiff_t *ldb,
16528 ptrdiff_t *jpvt,
16529 const float *rcond,
16530 ptrdiff_t *rank,
16531 float *work,
16532 ptrdiff_t *info
16533);
16534
16535/* Source: sgelsy.f */
16536#define sgelsy FORTRAN_WRAPPER(sgelsy)
16537extern void sgelsy(
16538 const ptrdiff_t *m,
16539 const ptrdiff_t *n,
16540 const ptrdiff_t *nrhs,
16541 float *a,
16542 const ptrdiff_t *lda,
16543 float *b,
16544 const ptrdiff_t *ldb,
16545 ptrdiff_t *jpvt,
16546 const float *rcond,
16547 ptrdiff_t *rank,
16548 float *work,
16549 const ptrdiff_t *lwork,
16550 ptrdiff_t *info
16551);
16552
16553/* Source: sgemlq.f */
16554#define sgemlq FORTRAN_WRAPPER(sgemlq)
16555extern void sgemlq(
16556 const char *side,
16557 const char *trans,
16558 const ptrdiff_t *m,
16559 const ptrdiff_t *n,
16560 const ptrdiff_t *k,
16561 const float *a,
16562 const ptrdiff_t *lda,
16563 const float *t,
16564 const ptrdiff_t *tsize,
16565 float *c,
16566 const ptrdiff_t *ldc,
16567 float *work,
16568 const ptrdiff_t *lwork,
16569 ptrdiff_t *info
16570);
16571
16572/* Source: sgemlqt.f */
16573#define sgemlqt FORTRAN_WRAPPER(sgemlqt)
16574extern void sgemlqt(
16575 const char *side,
16576 const char *trans,
16577 const ptrdiff_t *m,
16578 const ptrdiff_t *n,
16579 const ptrdiff_t *k,
16580 const ptrdiff_t *mb,
16581 const float *v,
16582 const ptrdiff_t *ldv,
16583 const float *t,
16584 const ptrdiff_t *ldt,
16585 float *c,
16586 const ptrdiff_t *ldc,
16587 float *work,
16588 ptrdiff_t *info
16589);
16590
16591/* Source: sgemqr.f */
16592#define sgemqr FORTRAN_WRAPPER(sgemqr)
16593extern void sgemqr(
16594 const char *side,
16595 const char *trans,
16596 const ptrdiff_t *m,
16597 const ptrdiff_t *n,
16598 const ptrdiff_t *k,
16599 const float *a,
16600 const ptrdiff_t *lda,
16601 const float *t,
16602 const ptrdiff_t *tsize,
16603 float *c,
16604 const ptrdiff_t *ldc,
16605 float *work,
16606 const ptrdiff_t *lwork,
16607 ptrdiff_t *info
16608);
16609
16610/* Source: sgemqrt.f */
16611#define sgemqrt FORTRAN_WRAPPER(sgemqrt)
16612extern void sgemqrt(
16613 const char *side,
16614 const char *trans,
16615 const ptrdiff_t *m,
16616 const ptrdiff_t *n,
16617 const ptrdiff_t *k,
16618 const ptrdiff_t *nb,
16619 const float *v,
16620 const ptrdiff_t *ldv,
16621 const float *t,
16622 const ptrdiff_t *ldt,
16623 float *c,
16624 const ptrdiff_t *ldc,
16625 float *work,
16626 ptrdiff_t *info
16627);
16628
16629/* Source: sgeql2.f */
16630#define sgeql2 FORTRAN_WRAPPER(sgeql2)
16631extern void sgeql2(
16632 const ptrdiff_t *m,
16633 const ptrdiff_t *n,
16634 float *a,
16635 const ptrdiff_t *lda,
16636 float *tau,
16637 float *work,
16638 ptrdiff_t *info
16639);
16640
16641/* Source: sgeqlf.f */
16642#define sgeqlf FORTRAN_WRAPPER(sgeqlf)
16643extern void sgeqlf(
16644 const ptrdiff_t *m,
16645 const ptrdiff_t *n,
16646 float *a,
16647 const ptrdiff_t *lda,
16648 float *tau,
16649 float *work,
16650 const ptrdiff_t *lwork,
16651 ptrdiff_t *info
16652);
16653
16654/* Source: sgeqp3.f */
16655#define sgeqp3 FORTRAN_WRAPPER(sgeqp3)
16656extern void sgeqp3(
16657 const ptrdiff_t *m,
16658 const ptrdiff_t *n,
16659 float *a,
16660 const ptrdiff_t *lda,
16661 ptrdiff_t *jpvt,
16662 float *tau,
16663 float *work,
16664 const ptrdiff_t *lwork,
16665 ptrdiff_t *info
16666);
16667
16668/* Source: sgeqr.f */
16669#define sgeqr FORTRAN_WRAPPER(sgeqr)
16670extern void sgeqr(
16671 const ptrdiff_t *m,
16672 const ptrdiff_t *n,
16673 float *a,
16674 const ptrdiff_t *lda,
16675 float *t,
16676 const ptrdiff_t *tsize,
16677 float *work,
16678 const ptrdiff_t *lwork,
16679 ptrdiff_t *info
16680);
16681
16682/* Source: sgeqr2.f */
16683#define sgeqr2 FORTRAN_WRAPPER(sgeqr2)
16684extern void sgeqr2(
16685 const ptrdiff_t *m,
16686 const ptrdiff_t *n,
16687 float *a,
16688 const ptrdiff_t *lda,
16689 float *tau,
16690 float *work,
16691 ptrdiff_t *info
16692);
16693
16694/* Source: sgeqr2p.f */
16695#define sgeqr2p FORTRAN_WRAPPER(sgeqr2p)
16696extern void sgeqr2p(
16697 const ptrdiff_t *m,
16698 const ptrdiff_t *n,
16699 float *a,
16700 const ptrdiff_t *lda,
16701 float *tau,
16702 float *work,
16703 ptrdiff_t *info
16704);
16705
16706/* Source: sgeqrf.f */
16707#define sgeqrf FORTRAN_WRAPPER(sgeqrf)
16708extern void sgeqrf(
16709 const ptrdiff_t *m,
16710 const ptrdiff_t *n,
16711 float *a,
16712 const ptrdiff_t *lda,
16713 float *tau,
16714 float *work,
16715 const ptrdiff_t *lwork,
16716 ptrdiff_t *info
16717);
16718
16719/* Source: sgeqrfp.f */
16720#define sgeqrfp FORTRAN_WRAPPER(sgeqrfp)
16721extern void sgeqrfp(
16722 const ptrdiff_t *m,
16723 const ptrdiff_t *n,
16724 float *a,
16725 const ptrdiff_t *lda,
16726 float *tau,
16727 float *work,
16728 const ptrdiff_t *lwork,
16729 ptrdiff_t *info
16730);
16731
16732/* Source: sgeqrt.f */
16733#define sgeqrt FORTRAN_WRAPPER(sgeqrt)
16734extern void sgeqrt(
16735 const ptrdiff_t *m,
16736 const ptrdiff_t *n,
16737 const ptrdiff_t *nb,
16738 float *a,
16739 const ptrdiff_t *lda,
16740 float *t,
16741 const ptrdiff_t *ldt,
16742 float *work,
16743 ptrdiff_t *info
16744);
16745
16746/* Source: sgeqrt2.f */
16747#define sgeqrt2 FORTRAN_WRAPPER(sgeqrt2)
16748extern void sgeqrt2(
16749 const ptrdiff_t *m,
16750 const ptrdiff_t *n,
16751 float *a,
16752 const ptrdiff_t *lda,
16753 float *t,
16754 const ptrdiff_t *ldt,
16755 ptrdiff_t *info
16756);
16757
16758/* Source: sgeqrt3.f */
16759#define sgeqrt3 FORTRAN_WRAPPER(sgeqrt3)
16760extern void sgeqrt3(
16761 const ptrdiff_t *m,
16762 const ptrdiff_t *n,
16763 float *a,
16764 const ptrdiff_t *lda,
16765 float *t,
16766 const ptrdiff_t *ldt,
16767 ptrdiff_t *info
16768);
16769
16770/* Source: sgerfs.f */
16771#define sgerfs FORTRAN_WRAPPER(sgerfs)
16772extern void sgerfs(
16773 const char *trans,
16774 const ptrdiff_t *n,
16775 const ptrdiff_t *nrhs,
16776 const float *a,
16777 const ptrdiff_t *lda,
16778 const float *af,
16779 const ptrdiff_t *ldaf,
16780 const ptrdiff_t *ipiv,
16781 const float *b,
16782 const ptrdiff_t *ldb,
16783 float *x,
16784 const ptrdiff_t *ldx,
16785 float *ferr,
16786 float *berr,
16787 float *work,
16788 ptrdiff_t *iwork,
16789 ptrdiff_t *info
16790);
16791
16792/* Source: sgerq2.f */
16793#define sgerq2 FORTRAN_WRAPPER(sgerq2)
16794extern void sgerq2(
16795 const ptrdiff_t *m,
16796 const ptrdiff_t *n,
16797 float *a,
16798 const ptrdiff_t *lda,
16799 float *tau,
16800 float *work,
16801 ptrdiff_t *info
16802);
16803
16804/* Source: sgerqf.f */
16805#define sgerqf FORTRAN_WRAPPER(sgerqf)
16806extern void sgerqf(
16807 const ptrdiff_t *m,
16808 const ptrdiff_t *n,
16809 float *a,
16810 const ptrdiff_t *lda,
16811 float *tau,
16812 float *work,
16813 const ptrdiff_t *lwork,
16814 ptrdiff_t *info
16815);
16816
16817/* Source: sgesc2.f */
16818#define sgesc2 FORTRAN_WRAPPER(sgesc2)
16819extern void sgesc2(
16820 const ptrdiff_t *n,
16821 const float *a,
16822 const ptrdiff_t *lda,
16823 float *rhs,
16824 const ptrdiff_t *ipiv,
16825 const ptrdiff_t *jpiv,
16826 float *scale
16827);
16828
16829/* Source: sgesdd.f */
16830#define sgesdd FORTRAN_WRAPPER(sgesdd)
16831extern void sgesdd(
16832 const char *jobz,
16833 const ptrdiff_t *m,
16834 const ptrdiff_t *n,
16835 float *a,
16836 const ptrdiff_t *lda,
16837 float *s,
16838 float *u,
16839 const ptrdiff_t *ldu,
16840 float *vt,
16841 const ptrdiff_t *ldvt,
16842 float *work,
16843 const ptrdiff_t *lwork,
16844 ptrdiff_t *iwork,
16845 ptrdiff_t *info
16846);
16847
16848/* Source: sgesv.f */
16849#define sgesv FORTRAN_WRAPPER(sgesv)
16850extern void sgesv(
16851 const ptrdiff_t *n,
16852 const ptrdiff_t *nrhs,
16853 float *a,
16854 const ptrdiff_t *lda,
16855 ptrdiff_t *ipiv,
16856 float *b,
16857 const ptrdiff_t *ldb,
16858 ptrdiff_t *info
16859);
16860
16861/* Source: sgesvd.f */
16862#define sgesvd FORTRAN_WRAPPER(sgesvd)
16863extern void sgesvd(
16864 const char *jobu,
16865 const char *jobvt,
16866 const ptrdiff_t *m,
16867 const ptrdiff_t *n,
16868 float *a,
16869 const ptrdiff_t *lda,
16870 float *s,
16871 float *u,
16872 const ptrdiff_t *ldu,
16873 float *vt,
16874 const ptrdiff_t *ldvt,
16875 float *work,
16876 const ptrdiff_t *lwork,
16877 ptrdiff_t *info
16878);
16879
16880/* Source: sgesvdx.f */
16881#define sgesvdx FORTRAN_WRAPPER(sgesvdx)
16882extern void sgesvdx(
16883 const char *jobu,
16884 const char *jobvt,
16885 const char *range,
16886 const ptrdiff_t *m,
16887 const ptrdiff_t *n,
16888 float *a,
16889 const ptrdiff_t *lda,
16890 const float *vl,
16891 const float *vu,
16892 const ptrdiff_t *il,
16893 const ptrdiff_t *iu,
16894 ptrdiff_t *ns,
16895 float *s,
16896 float *u,
16897 const ptrdiff_t *ldu,
16898 float *vt,
16899 const ptrdiff_t *ldvt,
16900 float *work,
16901 const ptrdiff_t *lwork,
16902 ptrdiff_t *iwork,
16903 ptrdiff_t *info
16904);
16905
16906/* Source: sgesvj.f */
16907#define sgesvj FORTRAN_WRAPPER(sgesvj)
16908extern void sgesvj(
16909 const char *joba,
16910 const char *jobu,
16911 const char *jobv,
16912 const ptrdiff_t *m,
16913 const ptrdiff_t *n,
16914 float *a,
16915 const ptrdiff_t *lda,
16916 float *sva,
16917 const ptrdiff_t *mv,
16918 float *v,
16919 const ptrdiff_t *ldv,
16920 float *work,
16921 const ptrdiff_t *lwork,
16922 ptrdiff_t *info
16923);
16924
16925/* Source: sgesvx.f */
16926#define sgesvx FORTRAN_WRAPPER(sgesvx)
16927extern void sgesvx(
16928 const char *fact,
16929 const char *trans,
16930 const ptrdiff_t *n,
16931 const ptrdiff_t *nrhs,
16932 float *a,
16933 const ptrdiff_t *lda,
16934 float *af,
16935 const ptrdiff_t *ldaf,
16936 ptrdiff_t *ipiv,
16937 char *equed,
16938 float *r,
16939 float *c,
16940 float *b,
16941 const ptrdiff_t *ldb,
16942 float *x,
16943 const ptrdiff_t *ldx,
16944 float *rcond,
16945 float *ferr,
16946 float *berr,
16947 float *work,
16948 ptrdiff_t *iwork,
16949 ptrdiff_t *info
16950);
16951
16952/* Source: sgetc2.f */
16953#define sgetc2 FORTRAN_WRAPPER(sgetc2)
16954extern void sgetc2(
16955 const ptrdiff_t *n,
16956 float *a,
16957 const ptrdiff_t *lda,
16958 ptrdiff_t *ipiv,
16959 ptrdiff_t *jpiv,
16960 ptrdiff_t *info
16961);
16962
16963/* Source: sgetf2.f */
16964#define sgetf2 FORTRAN_WRAPPER(sgetf2)
16965extern void sgetf2(
16966 const ptrdiff_t *m,
16967 const ptrdiff_t *n,
16968 float *a,
16969 const ptrdiff_t *lda,
16970 ptrdiff_t *ipiv,
16971 ptrdiff_t *info
16972);
16973
16974/* Source: sgetrf.f */
16975#define sgetrf FORTRAN_WRAPPER(sgetrf)
16976extern void sgetrf(
16977 const ptrdiff_t *m,
16978 const ptrdiff_t *n,
16979 float *a,
16980 const ptrdiff_t *lda,
16981 ptrdiff_t *ipiv,
16982 ptrdiff_t *info
16983);
16984
16985/* Source: sgetrf2.f */
16986#define sgetrf2 FORTRAN_WRAPPER(sgetrf2)
16987extern void sgetrf2(
16988 const ptrdiff_t *m,
16989 const ptrdiff_t *n,
16990 float *a,
16991 const ptrdiff_t *lda,
16992 ptrdiff_t *ipiv,
16993 ptrdiff_t *info
16994);
16995
16996/* Source: sgetri.f */
16997#define sgetri FORTRAN_WRAPPER(sgetri)
16998extern void sgetri(
16999 const ptrdiff_t *n,
17000 float *a,
17001 const ptrdiff_t *lda,
17002 const ptrdiff_t *ipiv,
17003 float *work,
17004 const ptrdiff_t *lwork,
17005 ptrdiff_t *info
17006);
17007
17008/* Source: sgetrs.f */
17009#define sgetrs FORTRAN_WRAPPER(sgetrs)
17010extern void sgetrs(
17011 const char *trans,
17012 const ptrdiff_t *n,
17013 const ptrdiff_t *nrhs,
17014 const float *a,
17015 const ptrdiff_t *lda,
17016 const ptrdiff_t *ipiv,
17017 float *b,
17018 const ptrdiff_t *ldb,
17019 ptrdiff_t *info
17020);
17021
17022/* Source: sgetsls.f */
17023#define sgetsls FORTRAN_WRAPPER(sgetsls)
17024extern void sgetsls(
17025 const char *trans,
17026 const ptrdiff_t *m,
17027 const ptrdiff_t *n,
17028 const ptrdiff_t *nrhs,
17029 float *a,
17030 const ptrdiff_t *lda,
17031 float *b,
17032 const ptrdiff_t *ldb,
17033 float *work,
17034 const ptrdiff_t *lwork,
17035 ptrdiff_t *info
17036);
17037
17038/* Source: sggbak.f */
17039#define sggbak FORTRAN_WRAPPER(sggbak)
17040extern void sggbak(
17041 const char *job,
17042 const char *side,
17043 const ptrdiff_t *n,
17044 const ptrdiff_t *ilo,
17045 const ptrdiff_t *ihi,
17046 const float *lscale,
17047 const float *rscale,
17048 const ptrdiff_t *m,
17049 float *v,
17050 const ptrdiff_t *ldv,
17051 ptrdiff_t *info
17052);
17053
17054/* Source: sggbal.f */
17055#define sggbal FORTRAN_WRAPPER(sggbal)
17056extern void sggbal(
17057 const char *job,
17058 const ptrdiff_t *n,
17059 float *a,
17060 const ptrdiff_t *lda,
17061 float *b,
17062 const ptrdiff_t *ldb,
17063 ptrdiff_t *ilo,
17064 ptrdiff_t *ihi,
17065 float *lscale,
17066 float *rscale,
17067 float *work,
17068 ptrdiff_t *info
17069);
17070
17071/* Source: sgges.f */
17072#define sgges FORTRAN_WRAPPER(sgges)
17073extern void sgges(
17074 const char *jobvsl,
17075 const char *jobvsr,
17076 const char *sort,
17077 ptrdiff_t (*selctg)(),
17078 const ptrdiff_t *n,
17079 float *a,
17080 const ptrdiff_t *lda,
17081 float *b,
17082 const ptrdiff_t *ldb,
17083 ptrdiff_t *sdim,
17084 float *alphar,
17085 float *alphai,
17086 float *beta,
17087 float *vsl,
17088 const ptrdiff_t *ldvsl,
17089 float *vsr,
17090 const ptrdiff_t *ldvsr,
17091 float *work,
17092 const ptrdiff_t *lwork,
17093 ptrdiff_t *bwork,
17094 ptrdiff_t *info
17095);
17096
17097/* Source: sgges3.f */
17098#define sgges3 FORTRAN_WRAPPER(sgges3)
17099extern void sgges3(
17100 const char *jobvsl,
17101 const char *jobvsr,
17102 const char *sort,
17103 ptrdiff_t (*selctg)(),
17104 const ptrdiff_t *n,
17105 float *a,
17106 const ptrdiff_t *lda,
17107 float *b,
17108 const ptrdiff_t *ldb,
17109 ptrdiff_t *sdim,
17110 float *alphar,
17111 float *alphai,
17112 float *beta,
17113 float *vsl,
17114 const ptrdiff_t *ldvsl,
17115 float *vsr,
17116 const ptrdiff_t *ldvsr,
17117 float *work,
17118 const ptrdiff_t *lwork,
17119 ptrdiff_t *bwork,
17120 ptrdiff_t *info
17121);
17122
17123/* Source: sggesx.f */
17124#define sggesx FORTRAN_WRAPPER(sggesx)
17125extern void sggesx(
17126 const char *jobvsl,
17127 const char *jobvsr,
17128 const char *sort,
17129 ptrdiff_t (*selctg)(),
17130 const char *sense,
17131 const ptrdiff_t *n,
17132 float *a,
17133 const ptrdiff_t *lda,
17134 float *b,
17135 const ptrdiff_t *ldb,
17136 ptrdiff_t *sdim,
17137 float *alphar,
17138 float *alphai,
17139 float *beta,
17140 float *vsl,
17141 const ptrdiff_t *ldvsl,
17142 float *vsr,
17143 const ptrdiff_t *ldvsr,
17144 float *rconde,
17145 float *rcondv,
17146 float *work,
17147 const ptrdiff_t *lwork,
17148 ptrdiff_t *iwork,
17149 const ptrdiff_t *liwork,
17150 ptrdiff_t *bwork,
17151 ptrdiff_t *info
17152);
17153
17154/* Source: sggev.f */
17155#define sggev FORTRAN_WRAPPER(sggev)
17156extern void sggev(
17157 const char *jobvl,
17158 const char *jobvr,
17159 const ptrdiff_t *n,
17160 float *a,
17161 const ptrdiff_t *lda,
17162 float *b,
17163 const ptrdiff_t *ldb,
17164 float *alphar,
17165 float *alphai,
17166 float *beta,
17167 float *vl,
17168 const ptrdiff_t *ldvl,
17169 float *vr,
17170 const ptrdiff_t *ldvr,
17171 float *work,
17172 const ptrdiff_t *lwork,
17173 ptrdiff_t *info
17174);
17175
17176/* Source: sggev3.f */
17177#define sggev3 FORTRAN_WRAPPER(sggev3)
17178extern void sggev3(
17179 const char *jobvl,
17180 const char *jobvr,
17181 const ptrdiff_t *n,
17182 float *a,
17183 const ptrdiff_t *lda,
17184 float *b,
17185 const ptrdiff_t *ldb,
17186 float *alphar,
17187 float *alphai,
17188 float *beta,
17189 float *vl,
17190 const ptrdiff_t *ldvl,
17191 float *vr,
17192 const ptrdiff_t *ldvr,
17193 float *work,
17194 const ptrdiff_t *lwork,
17195 ptrdiff_t *info
17196);
17197
17198/* Source: sggevx.f */
17199#define sggevx FORTRAN_WRAPPER(sggevx)
17200extern void sggevx(
17201 const char *balanc,
17202 const char *jobvl,
17203 const char *jobvr,
17204 const char *sense,
17205 const ptrdiff_t *n,
17206 float *a,
17207 const ptrdiff_t *lda,
17208 float *b,
17209 const ptrdiff_t *ldb,
17210 float *alphar,
17211 float *alphai,
17212 float *beta,
17213 float *vl,
17214 const ptrdiff_t *ldvl,
17215 float *vr,
17216 const ptrdiff_t *ldvr,
17217 ptrdiff_t *ilo,
17218 ptrdiff_t *ihi,
17219 float *lscale,
17220 float *rscale,
17221 float *abnrm,
17222 float *bbnrm,
17223 float *rconde,
17224 float *rcondv,
17225 float *work,
17226 const ptrdiff_t *lwork,
17227 ptrdiff_t *iwork,
17228 ptrdiff_t *bwork,
17229 ptrdiff_t *info
17230);
17231
17232/* Source: sggglm.f */
17233#define sggglm FORTRAN_WRAPPER(sggglm)
17234extern void sggglm(
17235 const ptrdiff_t *n,
17236 const ptrdiff_t *m,
17237 const ptrdiff_t *p,
17238 float *a,
17239 const ptrdiff_t *lda,
17240 float *b,
17241 const ptrdiff_t *ldb,
17242 float *d,
17243 float *x,
17244 float *y,
17245 float *work,
17246 const ptrdiff_t *lwork,
17247 ptrdiff_t *info
17248);
17249
17250/* Source: sgghd3.f */
17251#define sgghd3 FORTRAN_WRAPPER(sgghd3)
17252extern void sgghd3(
17253 const char *compq,
17254 const char *compz,
17255 const ptrdiff_t *n,
17256 const ptrdiff_t *ilo,
17257 const ptrdiff_t *ihi,
17258 float *a,
17259 const ptrdiff_t *lda,
17260 float *b,
17261 const ptrdiff_t *ldb,
17262 float *q,
17263 const ptrdiff_t *ldq,
17264 float *z,
17265 const ptrdiff_t *ldz,
17266 float *work,
17267 const ptrdiff_t *lwork,
17268 ptrdiff_t *info
17269);
17270
17271/* Source: sgghrd.f */
17272#define sgghrd FORTRAN_WRAPPER(sgghrd)
17273extern void sgghrd(
17274 const char *compq,
17275 const char *compz,
17276 const ptrdiff_t *n,
17277 const ptrdiff_t *ilo,
17278 const ptrdiff_t *ihi,
17279 float *a,
17280 const ptrdiff_t *lda,
17281 float *b,
17282 const ptrdiff_t *ldb,
17283 float *q,
17284 const ptrdiff_t *ldq,
17285 float *z,
17286 const ptrdiff_t *ldz,
17287 ptrdiff_t *info
17288);
17289
17290/* Source: sgglse.f */
17291#define sgglse FORTRAN_WRAPPER(sgglse)
17292extern void sgglse(
17293 const ptrdiff_t *m,
17294 const ptrdiff_t *n,
17295 const ptrdiff_t *p,
17296 float *a,
17297 const ptrdiff_t *lda,
17298 float *b,
17299 const ptrdiff_t *ldb,
17300 float *c,
17301 float *d,
17302 float *x,
17303 float *work,
17304 const ptrdiff_t *lwork,
17305 ptrdiff_t *info
17306);
17307
17308/* Source: sggqrf.f */
17309#define sggqrf FORTRAN_WRAPPER(sggqrf)
17310extern void sggqrf(
17311 const ptrdiff_t *n,
17312 const ptrdiff_t *m,
17313 const ptrdiff_t *p,
17314 float *a,
17315 const ptrdiff_t *lda,
17316 float *taua,
17317 float *b,
17318 const ptrdiff_t *ldb,
17319 float *taub,
17320 float *work,
17321 const ptrdiff_t *lwork,
17322 ptrdiff_t *info
17323);
17324
17325/* Source: sggrqf.f */
17326#define sggrqf FORTRAN_WRAPPER(sggrqf)
17327extern void sggrqf(
17328 const ptrdiff_t *m,
17329 const ptrdiff_t *p,
17330 const ptrdiff_t *n,
17331 float *a,
17332 const ptrdiff_t *lda,
17333 float *taua,
17334 float *b,
17335 const ptrdiff_t *ldb,
17336 float *taub,
17337 float *work,
17338 const ptrdiff_t *lwork,
17339 ptrdiff_t *info
17340);
17341
17342/* Source: sggsvd3.f */
17343#define sggsvd3 FORTRAN_WRAPPER(sggsvd3)
17344extern void sggsvd3(
17345 const char *jobu,
17346 const char *jobv,
17347 const char *jobq,
17348 const ptrdiff_t *m,
17349 const ptrdiff_t *n,
17350 const ptrdiff_t *p,
17351 ptrdiff_t *k,
17352 ptrdiff_t *l,
17353 float *a,
17354 const ptrdiff_t *lda,
17355 float *b,
17356 const ptrdiff_t *ldb,
17357 float *alpha,
17358 float *beta,
17359 float *u,
17360 const ptrdiff_t *ldu,
17361 float *v,
17362 const ptrdiff_t *ldv,
17363 float *q,
17364 const ptrdiff_t *ldq,
17365 float *work,
17366 const ptrdiff_t *lwork,
17367 ptrdiff_t *iwork,
17368 ptrdiff_t *info
17369);
17370
17371/* Source: sggsvp3.f */
17372#define sggsvp3 FORTRAN_WRAPPER(sggsvp3)
17373extern void sggsvp3(
17374 const char *jobu,
17375 const char *jobv,
17376 const char *jobq,
17377 const ptrdiff_t *m,
17378 const ptrdiff_t *p,
17379 const ptrdiff_t *n,
17380 float *a,
17381 const ptrdiff_t *lda,
17382 float *b,
17383 const ptrdiff_t *ldb,
17384 const float *tola,
17385 const float *tolb,
17386 ptrdiff_t *k,
17387 ptrdiff_t *l,
17388 float *u,
17389 const ptrdiff_t *ldu,
17390 float *v,
17391 const ptrdiff_t *ldv,
17392 float *q,
17393 const ptrdiff_t *ldq,
17394 ptrdiff_t *iwork,
17395 float *tau,
17396 float *work,
17397 const ptrdiff_t *lwork,
17398 ptrdiff_t *info
17399);
17400
17401/* Source: sgsvj0.f */
17402#define sgsvj0 FORTRAN_WRAPPER(sgsvj0)
17403extern void sgsvj0(
17404 const char *jobv,
17405 const ptrdiff_t *m,
17406 const ptrdiff_t *n,
17407 float *a,
17408 const ptrdiff_t *lda,
17409 float *d,
17410 float *sva,
17411 const ptrdiff_t *mv,
17412 float *v,
17413 const ptrdiff_t *ldv,
17414 const float *eps,
17415 const float *sfmin,
17416 const float *tol,
17417 const ptrdiff_t *nsweep,
17418 float *work,
17419 const ptrdiff_t *lwork,
17420 ptrdiff_t *info
17421);
17422
17423/* Source: sgsvj1.f */
17424#define sgsvj1 FORTRAN_WRAPPER(sgsvj1)
17425extern void sgsvj1(
17426 const char *jobv,
17427 const ptrdiff_t *m,
17428 const ptrdiff_t *n,
17429 const ptrdiff_t *n1,
17430 float *a,
17431 const ptrdiff_t *lda,
17432 float *d,
17433 float *sva,
17434 const ptrdiff_t *mv,
17435 float *v,
17436 const ptrdiff_t *ldv,
17437 const float *eps,
17438 const float *sfmin,
17439 const float *tol,
17440 const ptrdiff_t *nsweep,
17441 float *work,
17442 const ptrdiff_t *lwork,
17443 ptrdiff_t *info
17444);
17445
17446/* Source: sgtcon.f */
17447#define sgtcon FORTRAN_WRAPPER(sgtcon)
17448extern void sgtcon(
17449 const char *norm,
17450 const ptrdiff_t *n,
17451 const float *dl,
17452 const float *d,
17453 const float *du,
17454 const float *du2,
17455 const ptrdiff_t *ipiv,
17456 const float *anorm,
17457 float *rcond,
17458 float *work,
17459 ptrdiff_t *iwork,
17460 ptrdiff_t *info
17461);
17462
17463/* Source: sgtrfs.f */
17464#define sgtrfs FORTRAN_WRAPPER(sgtrfs)
17465extern void sgtrfs(
17466 const char *trans,
17467 const ptrdiff_t *n,
17468 const ptrdiff_t *nrhs,
17469 const float *dl,
17470 const float *d,
17471 const float *du,
17472 const float *dlf,
17473 const float *df,
17474 const float *duf,
17475 const float *du2,
17476 const ptrdiff_t *ipiv,
17477 const float *b,
17478 const ptrdiff_t *ldb,
17479 float *x,
17480 const ptrdiff_t *ldx,
17481 float *ferr,
17482 float *berr,
17483 float *work,
17484 ptrdiff_t *iwork,
17485 ptrdiff_t *info
17486);
17487
17488/* Source: sgtsv.f */
17489#define sgtsv FORTRAN_WRAPPER(sgtsv)
17490extern void sgtsv(
17491 const ptrdiff_t *n,
17492 const ptrdiff_t *nrhs,
17493 float *dl,
17494 float *d,
17495 float *du,
17496 float *b,
17497 const ptrdiff_t *ldb,
17498 ptrdiff_t *info
17499);
17500
17501/* Source: sgtsvx.f */
17502#define sgtsvx FORTRAN_WRAPPER(sgtsvx)
17503extern void sgtsvx(
17504 const char *fact,
17505 const char *trans,
17506 const ptrdiff_t *n,
17507 const ptrdiff_t *nrhs,
17508 const float *dl,
17509 const float *d,
17510 const float *du,
17511 float *dlf,
17512 float *df,
17513 float *duf,
17514 float *du2,
17515 ptrdiff_t *ipiv,
17516 const float *b,
17517 const ptrdiff_t *ldb,
17518 float *x,
17519 const ptrdiff_t *ldx,
17520 float *rcond,
17521 float *ferr,
17522 float *berr,
17523 float *work,
17524 ptrdiff_t *iwork,
17525 ptrdiff_t *info
17526);
17527
17528/* Source: sgttrf.f */
17529#define sgttrf FORTRAN_WRAPPER(sgttrf)
17530extern void sgttrf(
17531 const ptrdiff_t *n,
17532 float *dl,
17533 float *d,
17534 float *du,
17535 float *du2,
17536 ptrdiff_t *ipiv,
17537 ptrdiff_t *info
17538);
17539
17540/* Source: sgttrs.f */
17541#define sgttrs FORTRAN_WRAPPER(sgttrs)
17542extern void sgttrs(
17543 const char *trans,
17544 const ptrdiff_t *n,
17545 const ptrdiff_t *nrhs,
17546 const float *dl,
17547 const float *d,
17548 const float *du,
17549 const float *du2,
17550 const ptrdiff_t *ipiv,
17551 float *b,
17552 const ptrdiff_t *ldb,
17553 ptrdiff_t *info
17554);
17555
17556/* Source: sgtts2.f */
17557#define sgtts2 FORTRAN_WRAPPER(sgtts2)
17558extern void sgtts2(
17559 const ptrdiff_t *itrans,
17560 const ptrdiff_t *n,
17561 const ptrdiff_t *nrhs,
17562 const float *dl,
17563 const float *d,
17564 const float *du,
17565 const float *du2,
17566 const ptrdiff_t *ipiv,
17567 float *b,
17568 const ptrdiff_t *ldb
17569);
17570
17571/* Source: shgeqz.f */
17572#define shgeqz FORTRAN_WRAPPER(shgeqz)
17573extern void shgeqz(
17574 const char *job,
17575 const char *compq,
17576 const char *compz,
17577 const ptrdiff_t *n,
17578 const ptrdiff_t *ilo,
17579 const ptrdiff_t *ihi,
17580 float *h,
17581 const ptrdiff_t *ldh,
17582 float *t,
17583 const ptrdiff_t *ldt,
17584 float *alphar,
17585 float *alphai,
17586 float *beta,
17587 float *q,
17588 const ptrdiff_t *ldq,
17589 float *z,
17590 const ptrdiff_t *ldz,
17591 float *work,
17592 const ptrdiff_t *lwork,
17593 ptrdiff_t *info
17594);
17595
17596/* Source: shsein.f */
17597#define shsein FORTRAN_WRAPPER(shsein)
17598extern void shsein(
17599 const char *side,
17600 const char *eigsrc,
17601 const char *initv,
17602 ptrdiff_t *select,
17603 const ptrdiff_t *n,
17604 const float *h,
17605 const ptrdiff_t *ldh,
17606 float *wr,
17607 const float *wi,
17608 float *vl,
17609 const ptrdiff_t *ldvl,
17610 float *vr,
17611 const ptrdiff_t *ldvr,
17612 const ptrdiff_t *mm,
17613 ptrdiff_t *m,
17614 float *work,
17615 ptrdiff_t *ifaill,
17616 ptrdiff_t *ifailr,
17617 ptrdiff_t *info
17618);
17619
17620/* Source: shseqr.f */
17621#define shseqr FORTRAN_WRAPPER(shseqr)
17622extern void shseqr(
17623 const char *job,
17624 const char *compz,
17625 const ptrdiff_t *n,
17626 const ptrdiff_t *ilo,
17627 const ptrdiff_t *ihi,
17628 float *h,
17629 const ptrdiff_t *ldh,
17630 float *wr,
17631 float *wi,
17632 float *z,
17633 const ptrdiff_t *ldz,
17634 float *work,
17635 const ptrdiff_t *lwork,
17636 ptrdiff_t *info
17637);
17638
17639/* Source: sisnan.f */
17640#define sisnan FORTRAN_WRAPPER(sisnan)
17641extern ptrdiff_t sisnan(
17642 const float *sin
17643);
17644
17645/* Source: slabad.f */
17646#define slabad FORTRAN_WRAPPER(slabad)
17647extern void slabad(
17648 float *small,
17649 float *large
17650);
17651
17652/* Source: slabrd.f */
17653#define slabrd FORTRAN_WRAPPER(slabrd)
17654extern void slabrd(
17655 const ptrdiff_t *m,
17656 const ptrdiff_t *n,
17657 const ptrdiff_t *nb,
17658 float *a,
17659 const ptrdiff_t *lda,
17660 float *d,
17661 float *e,
17662 float *tauq,
17663 float *taup,
17664 float *x,
17665 const ptrdiff_t *ldx,
17666 float *y,
17667 const ptrdiff_t *ldy
17668);
17669
17670/* Source: slacn2.f */
17671#define slacn2 FORTRAN_WRAPPER(slacn2)
17672extern void slacn2(
17673 const ptrdiff_t *n,
17674 float *v,
17675 float *x,
17676 ptrdiff_t *isgn,
17677 float *est,
17678 ptrdiff_t *kase,
17679 ptrdiff_t *isave
17680);
17681
17682/* Source: slacon.f */
17683#define slacon FORTRAN_WRAPPER(slacon)
17684extern void slacon(
17685 const ptrdiff_t *n,
17686 float *v,
17687 float *x,
17688 ptrdiff_t *isgn,
17689 float *est,
17690 ptrdiff_t *kase
17691);
17692
17693/* Source: slacpy.f */
17694#define slacpy FORTRAN_WRAPPER(slacpy)
17695extern void slacpy(
17696 const char *uplo,
17697 const ptrdiff_t *m,
17698 const ptrdiff_t *n,
17699 const float *a,
17700 const ptrdiff_t *lda,
17701 float *b,
17702 const ptrdiff_t *ldb
17703);
17704
17705/* Source: sladiv.f */
17706#define sladiv FORTRAN_WRAPPER(sladiv)
17707extern void sladiv(
17708 const float *a,
17709 const float *b,
17710 const float *c,
17711 const float *d,
17712 float *p,
17713 float *q
17714);
17715
17716/* Source: sladiv.f */
17717#define sladiv1 FORTRAN_WRAPPER(sladiv1)
17718extern void sladiv1(
17719 float *a,
17720 float *b,
17721 float *c,
17722 float *d,
17723 float *p,
17724 float *q
17725);
17726
17727/* Source: sladiv.f */
17728#define sladiv2 FORTRAN_WRAPPER(sladiv2)
17729#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
17730extern double sladiv2(
17731#else
17732extern float sladiv2(
17733#endif
17734 float *a,
17735 float *b,
17736 float *c,
17737 float *d,
17738 float *r,
17739 float *t
17740);
17741
17742/* Source: slae2.f */
17743#define slae2 FORTRAN_WRAPPER(slae2)
17744extern void slae2(
17745 const float *a,
17746 const float *b,
17747 const float *c,
17748 float *rt1,
17749 float *rt2
17750);
17751
17752/* Source: slaebz.f */
17753#define slaebz FORTRAN_WRAPPER(slaebz)
17754extern void slaebz(
17755 const ptrdiff_t *ijob,
17756 const ptrdiff_t *nitmax,
17757 const ptrdiff_t *n,
17758 const ptrdiff_t *mmax,
17759 const ptrdiff_t *minp,
17760 const ptrdiff_t *nbmin,
17761 const float *abstol,
17762 const float *reltol,
17763 const float *pivmin,
17764 const float *d,
17765 const float *e,
17766 const float *e2,
17767 ptrdiff_t *nval,
17768 float *ab,
17769 float *c,
17770 ptrdiff_t *mout,
17771 ptrdiff_t *nab,
17772 float *work,
17773 ptrdiff_t *iwork,
17774 ptrdiff_t *info
17775);
17776
17777/* Source: slaed0.f */
17778#define slaed0 FORTRAN_WRAPPER(slaed0)
17779extern void slaed0(
17780 const ptrdiff_t *icompq,
17781 const ptrdiff_t *qsiz,
17782 const ptrdiff_t *n,
17783 float *d,
17784 const float *e,
17785 float *q,
17786 const ptrdiff_t *ldq,
17787 float *qstore,
17788 const ptrdiff_t *ldqs,
17789 float *work,
17790 ptrdiff_t *iwork,
17791 ptrdiff_t *info
17792);
17793
17794/* Source: slaed1.f */
17795#define slaed1 FORTRAN_WRAPPER(slaed1)
17796extern void slaed1(
17797 const ptrdiff_t *n,
17798 float *d,
17799 float *q,
17800 const ptrdiff_t *ldq,
17801 ptrdiff_t *indxq,
17802 const float *rho,
17803 const ptrdiff_t *cutpnt,
17804 float *work,
17805 ptrdiff_t *iwork,
17806 ptrdiff_t *info
17807);
17808
17809/* Source: slaed2.f */
17810#define slaed2 FORTRAN_WRAPPER(slaed2)
17811extern void slaed2(
17812 ptrdiff_t *k,
17813 const ptrdiff_t *n,
17814 const ptrdiff_t *n1,
17815 float *d,
17816 float *q,
17817 const ptrdiff_t *ldq,
17818 ptrdiff_t *indxq,
17819 float *rho,
17820 const float *z,
17821 float *dlamda,
17822 float *w,
17823 float *q2,
17824 ptrdiff_t *indx,
17825 ptrdiff_t *indxc,
17826 ptrdiff_t *indxp,
17827 ptrdiff_t *coltyp,
17828 ptrdiff_t *info
17829);
17830
17831/* Source: slaed3.f */
17832#define slaed3 FORTRAN_WRAPPER(slaed3)
17833extern void slaed3(
17834 const ptrdiff_t *k,
17835 const ptrdiff_t *n,
17836 const ptrdiff_t *n1,
17837 float *d,
17838 float *q,
17839 const ptrdiff_t *ldq,
17840 const float *rho,
17841 float *dlamda,
17842 const float *q2,
17843 const ptrdiff_t *indx,
17844 const ptrdiff_t *ctot,
17845 float *w,
17846 float *s,
17847 ptrdiff_t *info
17848);
17849
17850/* Source: slaed4.f */
17851#define slaed4 FORTRAN_WRAPPER(slaed4)
17852extern void slaed4(
17853 const ptrdiff_t *n,
17854 const ptrdiff_t *i,
17855 const float *d,
17856 const float *z,
17857 float *delta,
17858 const float *rho,
17859 float *dlam,
17860 ptrdiff_t *info
17861);
17862
17863/* Source: slaed5.f */
17864#define slaed5 FORTRAN_WRAPPER(slaed5)
17865extern void slaed5(
17866 const ptrdiff_t *i,
17867 const float *d,
17868 const float *z,
17869 float *delta,
17870 const float *rho,
17871 float *dlam
17872);
17873
17874/* Source: slaed6.f */
17875#define slaed6 FORTRAN_WRAPPER(slaed6)
17876extern void slaed6(
17877 const ptrdiff_t *kniter,
17878 const ptrdiff_t *orgati,
17879 const float *rho,
17880 const float *d,
17881 const float *z,
17882 const float *finit,
17883 float *tau,
17884 ptrdiff_t *info
17885);
17886
17887/* Source: slaed7.f */
17888#define slaed7 FORTRAN_WRAPPER(slaed7)
17889extern void slaed7(
17890 const ptrdiff_t *icompq,
17891 const ptrdiff_t *n,
17892 const ptrdiff_t *qsiz,
17893 const ptrdiff_t *tlvls,
17894 const ptrdiff_t *curlvl,
17895 const ptrdiff_t *curpbm,
17896 float *d,
17897 float *q,
17898 const ptrdiff_t *ldq,
17899 ptrdiff_t *indxq,
17900 const float *rho,
17901 const ptrdiff_t *cutpnt,
17902 float *qstore,
17903 ptrdiff_t *qptr,
17904 const ptrdiff_t *prmptr,
17905 const ptrdiff_t *perm,
17906 const ptrdiff_t *givptr,
17907 const ptrdiff_t *givcol,
17908 const float *givnum,
17909 float *work,
17910 ptrdiff_t *iwork,
17911 ptrdiff_t *info
17912);
17913
17914/* Source: slaed8.f */
17915#define slaed8 FORTRAN_WRAPPER(slaed8)
17916extern void slaed8(
17917 const ptrdiff_t *icompq,
17918 ptrdiff_t *k,
17919 const ptrdiff_t *n,
17920 const ptrdiff_t *qsiz,
17921 float *d,
17922 float *q,
17923 const ptrdiff_t *ldq,
17924 const ptrdiff_t *indxq,
17925 float *rho,
17926 const ptrdiff_t *cutpnt,
17927 const float *z,
17928 float *dlamda,
17929 float *q2,
17930 const ptrdiff_t *ldq2,
17931 float *w,
17932 ptrdiff_t *perm,
17933 ptrdiff_t *givptr,
17934 ptrdiff_t *givcol,
17935 float *givnum,
17936 ptrdiff_t *indxp,
17937 ptrdiff_t *indx,
17938 ptrdiff_t *info
17939);
17940
17941/* Source: slaed9.f */
17942#define slaed9 FORTRAN_WRAPPER(slaed9)
17943extern void slaed9(
17944 const ptrdiff_t *k,
17945 const ptrdiff_t *kstart,
17946 const ptrdiff_t *kstop,
17947 const ptrdiff_t *n,
17948 float *d,
17949 float *q,
17950 const ptrdiff_t *ldq,
17951 const float *rho,
17952 const float *dlamda,
17953 const float *w,
17954 float *s,
17955 const ptrdiff_t *lds,
17956 ptrdiff_t *info
17957);
17958
17959/* Source: slaeda.f */
17960#define slaeda FORTRAN_WRAPPER(slaeda)
17961extern void slaeda(
17962 const ptrdiff_t *n,
17963 const ptrdiff_t *tlvls,
17964 const ptrdiff_t *curlvl,
17965 const ptrdiff_t *curpbm,
17966 const ptrdiff_t *prmptr,
17967 const ptrdiff_t *perm,
17968 const ptrdiff_t *givptr,
17969 const ptrdiff_t *givcol,
17970 const float *givnum,
17971 const float *q,
17972 const ptrdiff_t *qptr,
17973 float *z,
17974 float *ztemp,
17975 ptrdiff_t *info
17976);
17977
17978/* Source: slaein.f */
17979#define slaein FORTRAN_WRAPPER(slaein)
17980extern void slaein(
17981 const ptrdiff_t *rightv,
17982 const ptrdiff_t *noinit,
17983 const ptrdiff_t *n,
17984 const float *h,
17985 const ptrdiff_t *ldh,
17986 const float *wr,
17987 const float *wi,
17988 float *vr,
17989 float *vi,
17990 float *b,
17991 const ptrdiff_t *ldb,
17992 float *work,
17993 const float *eps3,
17994 const float *smlnum,
17995 const float *bignum,
17996 ptrdiff_t *info
17997);
17998
17999/* Source: slaev2.f */
18000#define slaev2 FORTRAN_WRAPPER(slaev2)
18001extern void slaev2(
18002 const float *a,
18003 const float *b,
18004 const float *c,
18005 float *rt1,
18006 float *rt2,
18007 float *cs1,
18008 float *sn1
18009);
18010
18011/* Source: slaexc.f */
18012#define slaexc FORTRAN_WRAPPER(slaexc)
18013extern void slaexc(
18014 const ptrdiff_t *wantq,
18015 const ptrdiff_t *n,
18016 float *t,
18017 const ptrdiff_t *ldt,
18018 float *q,
18019 const ptrdiff_t *ldq,
18020 const ptrdiff_t *j1_,
18021 const ptrdiff_t *n1,
18022 const ptrdiff_t *n2,
18023 float *work,
18024 ptrdiff_t *info
18025);
18026
18027/* Source: slag2.f */
18028#define slag2 FORTRAN_WRAPPER(slag2)
18029extern void slag2(
18030 const float *a,
18031 const ptrdiff_t *lda,
18032 const float *b,
18033 const ptrdiff_t *ldb,
18034 const float *safmin,
18035 float *scale1,
18036 float *scale2,
18037 float *wr1,
18038 float *wr2,
18039 float *wi
18040);
18041
18042/* Source: slag2d.f */
18043#define slag2d FORTRAN_WRAPPER(slag2d)
18044extern void slag2d(
18045 const ptrdiff_t *m,
18046 const ptrdiff_t *n,
18047 const float *sa,
18048 const ptrdiff_t *ldsa,
18049 double *a,
18050 const ptrdiff_t *lda,
18051 ptrdiff_t *info
18052);
18053
18054/* Source: slags2.f */
18055#define slags2 FORTRAN_WRAPPER(slags2)
18056extern void slags2(
18057 const ptrdiff_t *upper,
18058 const float *a1,
18059 const float *a2,
18060 const float *a3,
18061 const float *b1,
18062 const float *b2,
18063 const float *b3,
18064 float *csu,
18065 float *snu,
18066 float *csv,
18067 float *snv,
18068 float *csq,
18069 float *snq
18070);
18071
18072/* Source: slagtf.f */
18073#define slagtf FORTRAN_WRAPPER(slagtf)
18074extern void slagtf(
18075 const ptrdiff_t *n,
18076 float *a,
18077 const float *lambda,
18078 float *b,
18079 float *c,
18080 const float *tol,
18081 float *d,
18082 ptrdiff_t *in,
18083 ptrdiff_t *info
18084);
18085
18086/* Source: slagtm.f */
18087#define slagtm FORTRAN_WRAPPER(slagtm)
18088extern void slagtm(
18089 const char *trans,
18090 const ptrdiff_t *n,
18091 const ptrdiff_t *nrhs,
18092 const float *alpha,
18093 const float *dl,
18094 const float *d,
18095 const float *du,
18096 const float *x,
18097 const ptrdiff_t *ldx,
18098 const float *beta,
18099 float *b,
18100 const ptrdiff_t *ldb
18101);
18102
18103/* Source: slagts.f */
18104#define slagts FORTRAN_WRAPPER(slagts)
18105extern void slagts(
18106 const ptrdiff_t *job,
18107 const ptrdiff_t *n,
18108 const float *a,
18109 const float *b,
18110 const float *c,
18111 const float *d,
18112 const ptrdiff_t *in,
18113 float *y,
18114 float *tol,
18115 ptrdiff_t *info
18116);
18117
18118/* Source: slagv2.f */
18119#define slagv2 FORTRAN_WRAPPER(slagv2)
18120extern void slagv2(
18121 float *a,
18122 const ptrdiff_t *lda,
18123 float *b,
18124 const ptrdiff_t *ldb,
18125 float *alphar,
18126 float *alphai,
18127 float *beta,
18128 float *csl,
18129 float *snl,
18130 float *csr,
18131 float *snr
18132);
18133
18134/* Source: slahqr.f */
18135#define slahqr FORTRAN_WRAPPER(slahqr)
18136extern void slahqr(
18137 const ptrdiff_t *wantt,
18138 const ptrdiff_t *wantz,
18139 const ptrdiff_t *n,
18140 const ptrdiff_t *ilo,
18141 const ptrdiff_t *ihi,
18142 float *h,
18143 const ptrdiff_t *ldh,
18144 float *wr,
18145 float *wi,
18146 const ptrdiff_t *iloz,
18147 const ptrdiff_t *ihiz,
18148 float *z,
18149 const ptrdiff_t *ldz,
18150 ptrdiff_t *info
18151);
18152
18153/* Source: slahr2.f */
18154#define slahr2 FORTRAN_WRAPPER(slahr2)
18155extern void slahr2(
18156 const ptrdiff_t *n,
18157 const ptrdiff_t *k,
18158 const ptrdiff_t *nb,
18159 float *a,
18160 const ptrdiff_t *lda,
18161 float *tau,
18162 float *t,
18163 const ptrdiff_t *ldt,
18164 float *y,
18165 const ptrdiff_t *ldy
18166);
18167
18168/* Source: slaic1.f */
18169#define slaic1 FORTRAN_WRAPPER(slaic1)
18170extern void slaic1(
18171 const ptrdiff_t *job,
18172 const ptrdiff_t *j,
18173 const float *x,
18174 const float *sest,
18175 const float *w,
18176 const float *gamma_,
18177 float *sestpr,
18178 float *s,
18179 float *c
18180);
18181
18182/* Source: slaisnan.f */
18183#define slaisnan FORTRAN_WRAPPER(slaisnan)
18184extern ptrdiff_t slaisnan(
18185 const float *sin1,
18186 const float *sin2
18187);
18188
18189/* Source: slaln2.f */
18190#define slaln2 FORTRAN_WRAPPER(slaln2)
18191extern void slaln2(
18192 const ptrdiff_t *ltrans,
18193 const ptrdiff_t *na,
18194 const ptrdiff_t *nw,
18195 const float *smin,
18196 const float *ca,
18197 const float *a,
18198 const ptrdiff_t *lda,
18199 const float *d1,
18200 const float *d2,
18201 const float *b,
18202 const ptrdiff_t *ldb,
18203 const float *wr,
18204 const float *wi,
18205 float *x,
18206 const ptrdiff_t *ldx,
18207 float *scale,
18208 float *xnorm,
18209 ptrdiff_t *info
18210);
18211
18212/* Source: slals0.f */
18213#define slals0 FORTRAN_WRAPPER(slals0)
18214extern void slals0(
18215 const ptrdiff_t *icompq,
18216 const ptrdiff_t *nl,
18217 const ptrdiff_t *nr,
18218 const ptrdiff_t *sqre,
18219 const ptrdiff_t *nrhs,
18220 float *b,
18221 const ptrdiff_t *ldb,
18222 float *bx,
18223 const ptrdiff_t *ldbx,
18224 const ptrdiff_t *perm,
18225 const ptrdiff_t *givptr,
18226 const ptrdiff_t *givcol,
18227 const ptrdiff_t *ldgcol,
18228 const float *givnum,
18229 const ptrdiff_t *ldgnum,
18230 const float *poles,
18231 const float *difl,
18232 const float *difr,
18233 const float *z,
18234 const ptrdiff_t *k,
18235 const float *c,
18236 const float *s,
18237 float *work,
18238 ptrdiff_t *info
18239);
18240
18241/* Source: slalsa.f */
18242#define slalsa FORTRAN_WRAPPER(slalsa)
18243extern void slalsa(
18244 const ptrdiff_t *icompq,
18245 const ptrdiff_t *smlsiz,
18246 const ptrdiff_t *n,
18247 const ptrdiff_t *nrhs,
18248 float *b,
18249 const ptrdiff_t *ldb,
18250 float *bx,
18251 const ptrdiff_t *ldbx,
18252 const float *u,
18253 const ptrdiff_t *ldu,
18254 const float *vt,
18255 const ptrdiff_t *k,
18256 const float *difl,
18257 const float *difr,
18258 const float *z,
18259 const float *poles,
18260 const ptrdiff_t *givptr,
18261 const ptrdiff_t *givcol,
18262 const ptrdiff_t *ldgcol,
18263 const ptrdiff_t *perm,
18264 const float *givnum,
18265 const float *c,
18266 const float *s,
18267 float *work,
18268 ptrdiff_t *iwork,
18269 ptrdiff_t *info
18270);
18271
18272/* Source: slalsd.f */
18273#define slalsd FORTRAN_WRAPPER(slalsd)
18274extern void slalsd(
18275 const char *uplo,
18276 const ptrdiff_t *smlsiz,
18277 const ptrdiff_t *n,
18278 const ptrdiff_t *nrhs,
18279 float *d,
18280 float *e,
18281 float *b,
18282 const ptrdiff_t *ldb,
18283 const float *rcond,
18284 ptrdiff_t *rank,
18285 float *work,
18286 ptrdiff_t *iwork,
18287 ptrdiff_t *info
18288);
18289
18290/* Source: slamrg.f */
18291#define slamrg FORTRAN_WRAPPER(slamrg)
18292extern void slamrg(
18293 const ptrdiff_t *n1,
18294 const ptrdiff_t *n2,
18295 const float *a,
18296 const ptrdiff_t *strd1,
18297 const ptrdiff_t *strd2,
18298 ptrdiff_t *index
18299);
18300
18301/* Source: slamswlq.f */
18302#define slamswlq FORTRAN_WRAPPER(slamswlq)
18303extern void slamswlq(
18304 const char *side,
18305 const char *trans,
18306 const ptrdiff_t *m,
18307 const ptrdiff_t *n,
18308 const ptrdiff_t *k,
18309 const ptrdiff_t *mb,
18310 const ptrdiff_t *nb,
18311 float *a,
18312 const ptrdiff_t *lda,
18313 const float *t,
18314 const ptrdiff_t *ldt,
18315 float *c,
18316 const ptrdiff_t *ldc,
18317 float *work,
18318 const ptrdiff_t *lwork,
18319 ptrdiff_t *info
18320);
18321
18322/* Source: slamtsqr.f */
18323#define slamtsqr FORTRAN_WRAPPER(slamtsqr)
18324extern void slamtsqr(
18325 const char *side,
18326 const char *trans,
18327 const ptrdiff_t *m,
18328 const ptrdiff_t *n,
18329 const ptrdiff_t *k,
18330 const ptrdiff_t *mb,
18331 const ptrdiff_t *nb,
18332 float *a,
18333 const ptrdiff_t *lda,
18334 const float *t,
18335 const ptrdiff_t *ldt,
18336 float *c,
18337 const ptrdiff_t *ldc,
18338 float *work,
18339 const ptrdiff_t *lwork,
18340 ptrdiff_t *info
18341);
18342
18343/* Source: slaneg.f */
18344#define slaneg FORTRAN_WRAPPER(slaneg)
18345extern ptrdiff_t slaneg(
18346 const ptrdiff_t *n,
18347 const float *d,
18348 const float *lld,
18349 const float *sigma,
18350 const float *pivmin,
18351 const ptrdiff_t *r
18352);
18353
18354/* Source: slangb.f */
18355#define slangb FORTRAN_WRAPPER(slangb)
18356#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18357extern double slangb(
18358#else
18359extern float slangb(
18360#endif
18361 const char *norm,
18362 const ptrdiff_t *n,
18363 const ptrdiff_t *kl,
18364 const ptrdiff_t *ku,
18365 const float *ab,
18366 const ptrdiff_t *ldab,
18367 float *work
18368);
18369
18370/* Source: slange.f */
18371#define slange FORTRAN_WRAPPER(slange)
18372#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18373extern double slange(
18374#else
18375extern float slange(
18376#endif
18377 const char *norm,
18378 const ptrdiff_t *m,
18379 const ptrdiff_t *n,
18380 const float *a,
18381 const ptrdiff_t *lda,
18382 float *work
18383);
18384
18385/* Source: slangt.f */
18386#define slangt FORTRAN_WRAPPER(slangt)
18387#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18388extern double slangt(
18389#else
18390extern float slangt(
18391#endif
18392 const char *norm,
18393 const ptrdiff_t *n,
18394 const float *dl,
18395 const float *d,
18396 const float *du
18397);
18398
18399/* Source: slanhs.f */
18400#define slanhs FORTRAN_WRAPPER(slanhs)
18401#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18402extern double slanhs(
18403#else
18404extern float slanhs(
18405#endif
18406 const char *norm,
18407 const ptrdiff_t *n,
18408 const float *a,
18409 const ptrdiff_t *lda,
18410 float *work
18411);
18412
18413/* Source: slansb.f */
18414#define slansb FORTRAN_WRAPPER(slansb)
18415#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18416extern double slansb(
18417#else
18418extern float slansb(
18419#endif
18420 const char *norm,
18421 const char *uplo,
18422 const ptrdiff_t *n,
18423 const ptrdiff_t *k,
18424 const float *ab,
18425 const ptrdiff_t *ldab,
18426 float *work
18427);
18428
18429/* Source: slansf.f */
18430#define slansf FORTRAN_WRAPPER(slansf)
18431#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18432extern double slansf(
18433#else
18434extern float slansf(
18435#endif
18436 const char *norm,
18437 const char *transr,
18438 const char *uplo,
18439 const ptrdiff_t *n,
18440 const float *a,
18441 float *work
18442);
18443
18444/* Source: slansp.f */
18445#define slansp FORTRAN_WRAPPER(slansp)
18446#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18447extern double slansp(
18448#else
18449extern float slansp(
18450#endif
18451 const char *norm,
18452 const char *uplo,
18453 const ptrdiff_t *n,
18454 const float *ap,
18455 float *work
18456);
18457
18458/* Source: slanst.f */
18459#define slanst FORTRAN_WRAPPER(slanst)
18460#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18461extern double slanst(
18462#else
18463extern float slanst(
18464#endif
18465 const char *norm,
18466 const ptrdiff_t *n,
18467 const float *d,
18468 const float *e
18469);
18470
18471/* Source: slansy.f */
18472#define slansy FORTRAN_WRAPPER(slansy)
18473#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18474extern double slansy(
18475#else
18476extern float slansy(
18477#endif
18478 const char *norm,
18479 const char *uplo,
18480 const ptrdiff_t *n,
18481 const float *a,
18482 const ptrdiff_t *lda,
18483 float *work
18484);
18485
18486/* Source: slantb.f */
18487#define slantb FORTRAN_WRAPPER(slantb)
18488#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18489extern double slantb(
18490#else
18491extern float slantb(
18492#endif
18493 const char *norm,
18494 const char *uplo,
18495 const char *diag,
18496 const ptrdiff_t *n,
18497 const ptrdiff_t *k,
18498 const float *ab,
18499 const ptrdiff_t *ldab,
18500 float *work
18501);
18502
18503/* Source: slantp.f */
18504#define slantp FORTRAN_WRAPPER(slantp)
18505#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18506extern double slantp(
18507#else
18508extern float slantp(
18509#endif
18510 const char *norm,
18511 const char *uplo,
18512 const char *diag,
18513 const ptrdiff_t *n,
18514 const float *ap,
18515 float *work
18516);
18517
18518/* Source: slantr.f */
18519#define slantr FORTRAN_WRAPPER(slantr)
18520#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18521extern double slantr(
18522#else
18523extern float slantr(
18524#endif
18525 const char *norm,
18526 const char *uplo,
18527 const char *diag,
18528 const ptrdiff_t *m,
18529 const ptrdiff_t *n,
18530 const float *a,
18531 const ptrdiff_t *lda,
18532 float *work
18533);
18534
18535/* Source: slanv2.f */
18536#define slanv2 FORTRAN_WRAPPER(slanv2)
18537extern void slanv2(
18538 float *a,
18539 float *b,
18540 float *c,
18541 float *d,
18542 float *rt1r,
18543 float *rt1i,
18544 float *rt2r,
18545 float *rt2i,
18546 float *cs,
18547 float *sn
18548);
18549
18550/* Source: slapll.f */
18551#define slapll FORTRAN_WRAPPER(slapll)
18552extern void slapll(
18553 const ptrdiff_t *n,
18554 float *x,
18555 const ptrdiff_t *incx,
18556 float *y,
18557 const ptrdiff_t *incy,
18558 float *ssmin
18559);
18560
18561/* Source: slapmr.f */
18562#define slapmr FORTRAN_WRAPPER(slapmr)
18563extern void slapmr(
18564 const ptrdiff_t *forwrd,
18565 const ptrdiff_t *m,
18566 const ptrdiff_t *n,
18567 float *x,
18568 const ptrdiff_t *ldx,
18569 ptrdiff_t *k
18570);
18571
18572/* Source: slapmt.f */
18573#define slapmt FORTRAN_WRAPPER(slapmt)
18574extern void slapmt(
18575 const ptrdiff_t *forwrd,
18576 const ptrdiff_t *m,
18577 const ptrdiff_t *n,
18578 float *x,
18579 const ptrdiff_t *ldx,
18580 ptrdiff_t *k
18581);
18582
18583/* Source: slapy2.f */
18584#define slapy2 FORTRAN_WRAPPER(slapy2)
18585#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18586extern double slapy2(
18587#else
18588extern float slapy2(
18589#endif
18590 const float *x,
18591 const float *y
18592);
18593
18594/* Source: slapy3.f */
18595#define slapy3 FORTRAN_WRAPPER(slapy3)
18596#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
18597extern double slapy3(
18598#else
18599extern float slapy3(
18600#endif
18601 const float *x,
18602 const float *y,
18603 const float *z
18604);
18605
18606/* Source: slaqgb.f */
18607#define slaqgb FORTRAN_WRAPPER(slaqgb)
18608extern void slaqgb(
18609 const ptrdiff_t *m,
18610 const ptrdiff_t *n,
18611 const ptrdiff_t *kl,
18612 const ptrdiff_t *ku,
18613 float *ab,
18614 const ptrdiff_t *ldab,
18615 const float *r,
18616 const float *c,
18617 const float *rowcnd,
18618 const float *colcnd,
18619 const float *amax,
18620 char *equed
18621);
18622
18623/* Source: slaqge.f */
18624#define slaqge FORTRAN_WRAPPER(slaqge)
18625extern void slaqge(
18626 const ptrdiff_t *m,
18627 const ptrdiff_t *n,
18628 float *a,
18629 const ptrdiff_t *lda,
18630 const float *r,
18631 const float *c,
18632 const float *rowcnd,
18633 const float *colcnd,
18634 const float *amax,
18635 char *equed
18636);
18637
18638/* Source: slaqp2.f */
18639#define slaqp2 FORTRAN_WRAPPER(slaqp2)
18640extern void slaqp2(
18641 const ptrdiff_t *m,
18642 const ptrdiff_t *n,
18643 const ptrdiff_t *offset,
18644 float *a,
18645 const ptrdiff_t *lda,
18646 ptrdiff_t *jpvt,
18647 float *tau,
18648 float *vn1,
18649 float *vn2,
18650 float *work
18651);
18652
18653/* Source: slaqps.f */
18654#define slaqps FORTRAN_WRAPPER(slaqps)
18655extern void slaqps(
18656 const ptrdiff_t *m,
18657 const ptrdiff_t *n,
18658 const ptrdiff_t *offset,
18659 const ptrdiff_t *nb,
18660 ptrdiff_t *kb,
18661 float *a,
18662 const ptrdiff_t *lda,
18663 ptrdiff_t *jpvt,
18664 float *tau,
18665 float *vn1,
18666 float *vn2,
18667 float *auxv,
18668 float *f,
18669 const ptrdiff_t *ldf
18670);
18671
18672/* Source: slaqr0.f */
18673#define slaqr0 FORTRAN_WRAPPER(slaqr0)
18674extern void slaqr0(
18675 const ptrdiff_t *wantt,
18676 const ptrdiff_t *wantz,
18677 const ptrdiff_t *n,
18678 const ptrdiff_t *ilo,
18679 const ptrdiff_t *ihi,
18680 float *h,
18681 const ptrdiff_t *ldh,
18682 float *wr,
18683 float *wi,
18684 const ptrdiff_t *iloz,
18685 const ptrdiff_t *ihiz,
18686 float *z,
18687 const ptrdiff_t *ldz,
18688 float *work,
18689 const ptrdiff_t *lwork,
18690 ptrdiff_t *info
18691);
18692
18693/* Source: slaqr1.f */
18694#define slaqr1 FORTRAN_WRAPPER(slaqr1)
18695extern void slaqr1(
18696 const ptrdiff_t *n,
18697 const float *h,
18698 const ptrdiff_t *ldh,
18699 const float *sr1,
18700 float *si1,
18701 float *sr2,
18702 float *si2,
18703 float *v
18704);
18705
18706/* Source: slaqr2.f */
18707#define slaqr2 FORTRAN_WRAPPER(slaqr2)
18708extern void slaqr2(
18709 const ptrdiff_t *wantt,
18710 const ptrdiff_t *wantz,
18711 const ptrdiff_t *n,
18712 const ptrdiff_t *ktop,
18713 const ptrdiff_t *kbot,
18714 const ptrdiff_t *nw,
18715 float *h,
18716 const ptrdiff_t *ldh,
18717 const ptrdiff_t *iloz,
18718 const ptrdiff_t *ihiz,
18719 float *z,
18720 const ptrdiff_t *ldz,
18721 ptrdiff_t *ns,
18722 ptrdiff_t *nd,
18723 float *sr,
18724 float *si,
18725 float *v,
18726 const ptrdiff_t *ldv,
18727 const ptrdiff_t *nh,
18728 float *t,
18729 const ptrdiff_t *ldt,
18730 const ptrdiff_t *nv,
18731 float *wv,
18732 const ptrdiff_t *ldwv,
18733 float *work,
18734 const ptrdiff_t *lwork
18735);
18736
18737/* Source: slaqr3.f */
18738#define slaqr3 FORTRAN_WRAPPER(slaqr3)
18739extern void slaqr3(
18740 const ptrdiff_t *wantt,
18741 const ptrdiff_t *wantz,
18742 const ptrdiff_t *n,
18743 const ptrdiff_t *ktop,
18744 const ptrdiff_t *kbot,
18745 const ptrdiff_t *nw,
18746 float *h,
18747 const ptrdiff_t *ldh,
18748 const ptrdiff_t *iloz,
18749 const ptrdiff_t *ihiz,
18750 float *z,
18751 const ptrdiff_t *ldz,
18752 ptrdiff_t *ns,
18753 ptrdiff_t *nd,
18754 float *sr,
18755 float *si,
18756 float *v,
18757 const ptrdiff_t *ldv,
18758 const ptrdiff_t *nh,
18759 float *t,
18760 const ptrdiff_t *ldt,
18761 const ptrdiff_t *nv,
18762 float *wv,
18763 const ptrdiff_t *ldwv,
18764 float *work,
18765 const ptrdiff_t *lwork
18766);
18767
18768/* Source: slaqr4.f */
18769#define slaqr4 FORTRAN_WRAPPER(slaqr4)
18770extern void slaqr4(
18771 const ptrdiff_t *wantt,
18772 const ptrdiff_t *wantz,
18773 const ptrdiff_t *n,
18774 const ptrdiff_t *ilo,
18775 const ptrdiff_t *ihi,
18776 float *h,
18777 const ptrdiff_t *ldh,
18778 float *wr,
18779 float *wi,
18780 const ptrdiff_t *iloz,
18781 const ptrdiff_t *ihiz,
18782 float *z,
18783 const ptrdiff_t *ldz,
18784 float *work,
18785 const ptrdiff_t *lwork,
18786 ptrdiff_t *info
18787);
18788
18789/* Source: slaqr5.f */
18790#define slaqr5 FORTRAN_WRAPPER(slaqr5)
18791extern void slaqr5(
18792 const ptrdiff_t *wantt,
18793 const ptrdiff_t *wantz,
18794 const ptrdiff_t *kacc22,
18795 const ptrdiff_t *n,
18796 const ptrdiff_t *ktop,
18797 const ptrdiff_t *kbot,
18798 const ptrdiff_t *nshfts,
18799 float *sr,
18800 float *si,
18801 float *h,
18802 const ptrdiff_t *ldh,
18803 const ptrdiff_t *iloz,
18804 const ptrdiff_t *ihiz,
18805 float *z,
18806 const ptrdiff_t *ldz,
18807 float *v,
18808 const ptrdiff_t *ldv,
18809 float *u,
18810 const ptrdiff_t *ldu,
18811 const ptrdiff_t *nv,
18812 float *wv,
18813 const ptrdiff_t *ldwv,
18814 const ptrdiff_t *nh,
18815 float *wh,
18816 const ptrdiff_t *ldwh
18817);
18818
18819/* Source: slaqsb.f */
18820#define slaqsb FORTRAN_WRAPPER(slaqsb)
18821extern void slaqsb(
18822 const char *uplo,
18823 const ptrdiff_t *n,
18824 const ptrdiff_t *kd,
18825 float *ab,
18826 const ptrdiff_t *ldab,
18827 const float *s,
18828 const float *scond,
18829 const float *amax,
18830 char *equed
18831);
18832
18833/* Source: slaqsp.f */
18834#define slaqsp FORTRAN_WRAPPER(slaqsp)
18835extern void slaqsp(
18836 const char *uplo,
18837 const ptrdiff_t *n,
18838 float *ap,
18839 const float *s,
18840 const float *scond,
18841 const float *amax,
18842 char *equed
18843);
18844
18845/* Source: slaqsy.f */
18846#define slaqsy FORTRAN_WRAPPER(slaqsy)
18847extern void slaqsy(
18848 const char *uplo,
18849 const ptrdiff_t *n,
18850 float *a,
18851 const ptrdiff_t *lda,
18852 const float *s,
18853 const float *scond,
18854 const float *amax,
18855 char *equed
18856);
18857
18858/* Source: slaqtr.f */
18859#define slaqtr FORTRAN_WRAPPER(slaqtr)
18860extern void slaqtr(
18861 const ptrdiff_t *ltran,
18862 const ptrdiff_t *lreal,
18863 const ptrdiff_t *n,
18864 const float *t,
18865 const ptrdiff_t *ldt,
18866 const float *b,
18867 const float *w,
18868 float *scale,
18869 float *x,
18870 float *work,
18871 ptrdiff_t *info
18872);
18873
18874/* Source: slar1v.f */
18875#define slar1v FORTRAN_WRAPPER(slar1v)
18876extern void slar1v(
18877 const ptrdiff_t *n,
18878 const ptrdiff_t *b1,
18879 const ptrdiff_t *bn,
18880 const float *lambda,
18881 const float *d,
18882 const float *l,
18883 const float *ld,
18884 const float *lld,
18885 const float *pivmin,
18886 const float *gaptol,
18887 float *z,
18888 const ptrdiff_t *wantnc,
18889 ptrdiff_t *negcnt,
18890 float *ztz,
18891 float *mingma,
18892 ptrdiff_t *r,
18893 ptrdiff_t *isuppz,
18894 float *nrminv,
18895 float *resid,
18896 float *rqcorr,
18897 float *work
18898);
18899
18900/* Source: slar2v.f */
18901#define slar2v FORTRAN_WRAPPER(slar2v)
18902extern void slar2v(
18903 const ptrdiff_t *n,
18904 float *x,
18905 float *y,
18906 float *z,
18907 const ptrdiff_t *incx,
18908 const float *c,
18909 const float *s,
18910 const ptrdiff_t *incc
18911);
18912
18913/* Source: slarf.f */
18914#define slarf FORTRAN_WRAPPER(slarf)
18915extern void slarf(
18916 const char *side,
18917 const ptrdiff_t *m,
18918 const ptrdiff_t *n,
18919 const float *v,
18920 const ptrdiff_t *incv,
18921 const float *tau,
18922 float *c,
18923 const ptrdiff_t *ldc,
18924 float *work
18925);
18926
18927/* Source: slarfb.f */
18928#define slarfb FORTRAN_WRAPPER(slarfb)
18929extern void slarfb(
18930 const char *side,
18931 const char *trans,
18932 const char *direct,
18933 const char *storev,
18934 const ptrdiff_t *m,
18935 const ptrdiff_t *n,
18936 const ptrdiff_t *k,
18937 const float *v,
18938 const ptrdiff_t *ldv,
18939 const float *t,
18940 const ptrdiff_t *ldt,
18941 float *c,
18942 const ptrdiff_t *ldc,
18943 float *work,
18944 const ptrdiff_t *ldwork
18945);
18946
18947/* Source: slarfg.f */
18948#define slarfg FORTRAN_WRAPPER(slarfg)
18949extern void slarfg(
18950 const ptrdiff_t *n,
18951 float *alpha,
18952 float *x,
18953 const ptrdiff_t *incx,
18954 float *tau
18955);
18956
18957/* Source: slarfgp.f */
18958#define slarfgp FORTRAN_WRAPPER(slarfgp)
18959extern void slarfgp(
18960 const ptrdiff_t *n,
18961 float *alpha,
18962 float *x,
18963 const ptrdiff_t *incx,
18964 float *tau
18965);
18966
18967/* Source: slarft.f */
18968#define slarft FORTRAN_WRAPPER(slarft)
18969extern void slarft(
18970 const char *direct,
18971 const char *storev,
18972 const ptrdiff_t *n,
18973 const ptrdiff_t *k,
18974 const float *v,
18975 const ptrdiff_t *ldv,
18976 const float *tau,
18977 float *t,
18978 const ptrdiff_t *ldt
18979);
18980
18981/* Source: slarfx.f */
18982#define slarfx FORTRAN_WRAPPER(slarfx)
18983extern void slarfx(
18984 const char *side,
18985 const ptrdiff_t *m,
18986 const ptrdiff_t *n,
18987 const float *v,
18988 const float *tau,
18989 float *c,
18990 const ptrdiff_t *ldc,
18991 float *work
18992);
18993
18994/* Source: slarfy.f */
18995#define slarfy FORTRAN_WRAPPER(slarfy)
18996extern void slarfy(
18997 char *uplo,
18998 ptrdiff_t *n,
18999 float *v,
19000 ptrdiff_t *incv,
19001 float *tau,
19002 float *c,
19003 ptrdiff_t *ldc,
19004 float *work
19005);
19006
19007/* Source: slargv.f */
19008#define slargv FORTRAN_WRAPPER(slargv)
19009extern void slargv(
19010 const ptrdiff_t *n,
19011 float *x,
19012 const ptrdiff_t *incx,
19013 float *y,
19014 const ptrdiff_t *incy,
19015 float *c,
19016 const ptrdiff_t *incc
19017);
19018
19019/* Source: slarnv.f */
19020#define slarnv FORTRAN_WRAPPER(slarnv)
19021extern void slarnv(
19022 const ptrdiff_t *idist,
19023 ptrdiff_t *iseed,
19024 const ptrdiff_t *n,
19025 float *x
19026);
19027
19028/* Source: slarra.f */
19029#define slarra FORTRAN_WRAPPER(slarra)
19030extern void slarra(
19031 const ptrdiff_t *n,
19032 const float *d,
19033 float *e,
19034 float *e2,
19035 const float *spltol,
19036 const float *tnrm,
19037 ptrdiff_t *nsplit,
19038 ptrdiff_t *isplit,
19039 ptrdiff_t *info
19040);
19041
19042/* Source: slarrb.f */
19043#define slarrb FORTRAN_WRAPPER(slarrb)
19044extern void slarrb(
19045 const ptrdiff_t *n,
19046 const float *d,
19047 const float *lld,
19048 const ptrdiff_t *ifirst,
19049 const ptrdiff_t *ilast,
19050 const float *rtol1,
19051 const float *rtol2,
19052 const ptrdiff_t *offset,
19053 float *w,
19054 float *wgap,
19055 float *werr,
19056 float *work,
19057 ptrdiff_t *iwork,
19058 const float *pivmin,
19059 const float *spdiam,
19060 const ptrdiff_t *twist,
19061 ptrdiff_t *info
19062);
19063
19064/* Source: slarrc.f */
19065#define slarrc FORTRAN_WRAPPER(slarrc)
19066extern void slarrc(
19067 const char *jobt,
19068 const ptrdiff_t *n,
19069 const float *vl,
19070 const float *vu,
19071 const float *d,
19072 const float *e,
19073 const float *pivmin,
19074 ptrdiff_t *eigcnt,
19075 ptrdiff_t *lcnt,
19076 ptrdiff_t *rcnt,
19077 ptrdiff_t *info
19078);
19079
19080/* Source: slarrd.f */
19081#define slarrd FORTRAN_WRAPPER(slarrd)
19082extern void slarrd(
19083 const char *range,
19084 const char *order,
19085 const ptrdiff_t *n,
19086 const float *vl,
19087 const float *vu,
19088 const ptrdiff_t *il,
19089 const ptrdiff_t *iu,
19090 const float *gers,
19091 const float *reltol,
19092 const float *d,
19093 const float *e,
19094 const float *e2,
19095 const float *pivmin,
19096 const ptrdiff_t *nsplit,
19097 const ptrdiff_t *isplit,
19098 ptrdiff_t *m,
19099 float *w,
19100 float *werr,
19101 float *wl,
19102 float *wu,
19103 ptrdiff_t *iblock,
19104 ptrdiff_t *indexw,
19105 float *work,
19106 ptrdiff_t *iwork,
19107 ptrdiff_t *info
19108);
19109
19110/* Source: slarre.f */
19111#define slarre FORTRAN_WRAPPER(slarre)
19112extern void slarre(
19113 const char *range,
19114 const ptrdiff_t *n,
19115 float *vl,
19116 float *vu,
19117 const ptrdiff_t *il,
19118 const ptrdiff_t *iu,
19119 float *d,
19120 float *e,
19121 float *e2,
19122 const float *rtol1,
19123 const float *rtol2,
19124 const float *spltol,
19125 ptrdiff_t *nsplit,
19126 ptrdiff_t *isplit,
19127 ptrdiff_t *m,
19128 float *w,
19129 float *werr,
19130 float *wgap,
19131 ptrdiff_t *iblock,
19132 ptrdiff_t *indexw,
19133 float *gers,
19134 float *pivmin,
19135 float *work,
19136 ptrdiff_t *iwork,
19137 ptrdiff_t *info
19138);
19139
19140/* Source: slarrf.f */
19141#define slarrf FORTRAN_WRAPPER(slarrf)
19142extern void slarrf(
19143 const ptrdiff_t *n,
19144 const float *d,
19145 const float *l,
19146 const float *ld,
19147 const ptrdiff_t *clstrt,
19148 const ptrdiff_t *clend,
19149 const float *w,
19150 float *wgap,
19151 const float *werr,
19152 const float *spdiam,
19153 const float *clgapl,
19154 float *clgapr,
19155 const float *pivmin,
19156 float *sigma,
19157 float *dplus,
19158 float *lplus,
19159 float *work,
19160 ptrdiff_t *info
19161);
19162
19163/* Source: slarrj.f */
19164#define slarrj FORTRAN_WRAPPER(slarrj)
19165extern void slarrj(
19166 const ptrdiff_t *n,
19167 const float *d,
19168 const float *e2,
19169 const ptrdiff_t *ifirst,
19170 const ptrdiff_t *ilast,
19171 const float *rtol,
19172 const ptrdiff_t *offset,
19173 float *w,
19174 float *werr,
19175 float *work,
19176 ptrdiff_t *iwork,
19177 const float *pivmin,
19178 const float *spdiam,
19179 ptrdiff_t *info
19180);
19181
19182/* Source: slarrk.f */
19183#define slarrk FORTRAN_WRAPPER(slarrk)
19184extern void slarrk(
19185 const ptrdiff_t *n,
19186 const ptrdiff_t *iw,
19187 const float *gl,
19188 const float *gu,
19189 const float *d,
19190 const float *e2,
19191 const float *pivmin,
19192 const float *reltol,
19193 float *w,
19194 float *werr,
19195 ptrdiff_t *info
19196);
19197
19198/* Source: slarrr.f */
19199#define slarrr FORTRAN_WRAPPER(slarrr)
19200extern void slarrr(
19201 const ptrdiff_t *n,
19202 const float *d,
19203 float *e,
19204 ptrdiff_t *info
19205);
19206
19207/* Source: slarrv.f */
19208#define slarrv FORTRAN_WRAPPER(slarrv)
19209extern void slarrv(
19210 const ptrdiff_t *n,
19211 const float *vl,
19212 const float *vu,
19213 float *d,
19214 float *l,
19215 float *pivmin,
19216 const ptrdiff_t *isplit,
19217 const ptrdiff_t *m,
19218 const ptrdiff_t *dol,
19219 const ptrdiff_t *dou,
19220 const float *minrgp,
19221 const float *rtol1,
19222 const float *rtol2,
19223 float *w,
19224 float *werr,
19225 float *wgap,
19226 const ptrdiff_t *iblock,
19227 const ptrdiff_t *indexw,
19228 const float *gers,
19229 float *z,
19230 const ptrdiff_t *ldz,
19231 ptrdiff_t *isuppz,
19232 float *work,
19233 ptrdiff_t *iwork,
19234 ptrdiff_t *info
19235);
19236
19237/* Source: slartg.f */
19238#define slartg FORTRAN_WRAPPER(slartg)
19239extern void slartg(
19240 const float *f,
19241 const float *g,
19242 float *cs,
19243 float *sn,
19244 float *r
19245);
19246
19247/* Source: slartgp.f */
19248#define slartgp FORTRAN_WRAPPER(slartgp)
19249extern void slartgp(
19250 float *f,
19251 float *g,
19252 float *cs,
19253 float *sn,
19254 float *r
19255);
19256
19257/* Source: slartgs.f */
19258#define slartgs FORTRAN_WRAPPER(slartgs)
19259extern void slartgs(
19260 const float *x,
19261 const float *y,
19262 const float *sigma,
19263 float *cs,
19264 float *sn
19265);
19266
19267/* Source: slartv.f */
19268#define slartv FORTRAN_WRAPPER(slartv)
19269extern void slartv(
19270 const ptrdiff_t *n,
19271 float *x,
19272 const ptrdiff_t *incx,
19273 float *y,
19274 const ptrdiff_t *incy,
19275 const float *c,
19276 const float *s,
19277 const ptrdiff_t *incc
19278);
19279
19280/* Source: slaruv.f */
19281#define slaruv FORTRAN_WRAPPER(slaruv)
19282extern void slaruv(
19283 ptrdiff_t *iseed,
19284 const ptrdiff_t *n,
19285 float *x
19286);
19287
19288/* Source: slarz.f */
19289#define slarz FORTRAN_WRAPPER(slarz)
19290extern void slarz(
19291 const char *side,
19292 const ptrdiff_t *m,
19293 const ptrdiff_t *n,
19294 const ptrdiff_t *l,
19295 const float *v,
19296 const ptrdiff_t *incv,
19297 const float *tau,
19298 float *c,
19299 const ptrdiff_t *ldc,
19300 float *work
19301);
19302
19303/* Source: slarzb.f */
19304#define slarzb FORTRAN_WRAPPER(slarzb)
19305extern void slarzb(
19306 const char *side,
19307 const char *trans,
19308 const char *direct,
19309 const char *storev,
19310 const ptrdiff_t *m,
19311 const ptrdiff_t *n,
19312 const ptrdiff_t *k,
19313 const ptrdiff_t *l,
19314 const float *v,
19315 const ptrdiff_t *ldv,
19316 const float *t,
19317 const ptrdiff_t *ldt,
19318 float *c,
19319 const ptrdiff_t *ldc,
19320 float *work,
19321 const ptrdiff_t *ldwork
19322);
19323
19324/* Source: slarzt.f */
19325#define slarzt FORTRAN_WRAPPER(slarzt)
19326extern void slarzt(
19327 const char *direct,
19328 const char *storev,
19329 const ptrdiff_t *n,
19330 const ptrdiff_t *k,
19331 float *v,
19332 const ptrdiff_t *ldv,
19333 const float *tau,
19334 float *t,
19335 const ptrdiff_t *ldt
19336);
19337
19338/* Source: slas2.f */
19339#define slas2 FORTRAN_WRAPPER(slas2)
19340extern void slas2(
19341 const float *f,
19342 const float *g,
19343 const float *h,
19344 float *ssmin,
19345 float *ssmax
19346);
19347
19348/* Source: slascl.f */
19349#define slascl FORTRAN_WRAPPER(slascl)
19350extern void slascl(
19351 const char *type,
19352 const ptrdiff_t *kl,
19353 const ptrdiff_t *ku,
19354 const float *cfrom,
19355 const float *cto,
19356 const ptrdiff_t *m,
19357 const ptrdiff_t *n,
19358 float *a,
19359 const ptrdiff_t *lda,
19360 ptrdiff_t *info
19361);
19362
19363/* Source: slasd0.f */
19364#define slasd0 FORTRAN_WRAPPER(slasd0)
19365extern void slasd0(
19366 const ptrdiff_t *n,
19367 const ptrdiff_t *sqre,
19368 float *d,
19369 const float *e,
19370 float *u,
19371 const ptrdiff_t *ldu,
19372 float *vt,
19373 const ptrdiff_t *ldvt,
19374 const ptrdiff_t *smlsiz,
19375 ptrdiff_t *iwork,
19376 float *work,
19377 ptrdiff_t *info
19378);
19379
19380/* Source: slasd1.f */
19381#define slasd1 FORTRAN_WRAPPER(slasd1)
19382extern void slasd1(
19383 const ptrdiff_t *nl,
19384 const ptrdiff_t *nr,
19385 const ptrdiff_t *sqre,
19386 float *d,
19387 float *alpha,
19388 float *beta,
19389 float *u,
19390 const ptrdiff_t *ldu,
19391 float *vt,
19392 const ptrdiff_t *ldvt,
19393 ptrdiff_t *idxq,
19394 ptrdiff_t *iwork,
19395 float *work,
19396 ptrdiff_t *info
19397);
19398
19399/* Source: slasd2.f */
19400#define slasd2 FORTRAN_WRAPPER(slasd2)
19401extern void slasd2(
19402 const ptrdiff_t *nl,
19403 const ptrdiff_t *nr,
19404 const ptrdiff_t *sqre,
19405 ptrdiff_t *k,
19406 float *d,
19407 float *z,
19408 const float *alpha,
19409 const float *beta,
19410 float *u,
19411 const ptrdiff_t *ldu,
19412 float *vt,
19413 const ptrdiff_t *ldvt,
19414 float *dsigma,
19415 float *u2,
19416 const ptrdiff_t *ldu2,
19417 float *vt2,
19418 const ptrdiff_t *ldvt2,
19419 ptrdiff_t *idxp,
19420 ptrdiff_t *idx,
19421 ptrdiff_t *idxc,
19422 ptrdiff_t *idxq,
19423 ptrdiff_t *coltyp,
19424 ptrdiff_t *info
19425);
19426
19427/* Source: slasd3.f */
19428#define slasd3 FORTRAN_WRAPPER(slasd3)
19429extern void slasd3(
19430 const ptrdiff_t *nl,
19431 const ptrdiff_t *nr,
19432 const ptrdiff_t *sqre,
19433 const ptrdiff_t *k,
19434 float *d,
19435 float *q,
19436 const ptrdiff_t *ldq,
19437 float *dsigma,
19438 float *u,
19439 const ptrdiff_t *ldu,
19440 const float *u2,
19441 const ptrdiff_t *ldu2,
19442 float *vt,
19443 const ptrdiff_t *ldvt,
19444 float *vt2,
19445 const ptrdiff_t *ldvt2,
19446 const ptrdiff_t *idxc,
19447 const ptrdiff_t *ctot,
19448 float *z,
19449 ptrdiff_t *info
19450);
19451
19452/* Source: slasd4.f */
19453#define slasd4 FORTRAN_WRAPPER(slasd4)
19454extern void slasd4(
19455 const ptrdiff_t *n,
19456 const ptrdiff_t *i,
19457 const float *d,
19458 const float *z,
19459 float *delta,
19460 const float *rho,
19461 float *sigma,
19462 float *work,
19463 ptrdiff_t *info
19464);
19465
19466/* Source: slasd5.f */
19467#define slasd5 FORTRAN_WRAPPER(slasd5)
19468extern void slasd5(
19469 const ptrdiff_t *i,
19470 const float *d,
19471 const float *z,
19472 float *delta,
19473 const float *rho,
19474 float *dsigma,
19475 float *work
19476);
19477
19478/* Source: slasd6.f */
19479#define slasd6 FORTRAN_WRAPPER(slasd6)
19480extern void slasd6(
19481 const ptrdiff_t *icompq,
19482 const ptrdiff_t *nl,
19483 const ptrdiff_t *nr,
19484 const ptrdiff_t *sqre,
19485 float *d,
19486 float *vf,
19487 float *vl,
19488 float *alpha,
19489 float *beta,
19490 ptrdiff_t *idxq,
19491 ptrdiff_t *perm,
19492 ptrdiff_t *givptr,
19493 ptrdiff_t *givcol,
19494 const ptrdiff_t *ldgcol,
19495 float *givnum,
19496 const ptrdiff_t *ldgnum,
19497 float *poles,
19498 float *difl,
19499 float *difr,
19500 float *z,
19501 ptrdiff_t *k,
19502 float *c,
19503 float *s,
19504 float *work,
19505 ptrdiff_t *iwork,
19506 ptrdiff_t *info
19507);
19508
19509/* Source: slasd7.f */
19510#define slasd7 FORTRAN_WRAPPER(slasd7)
19511extern void slasd7(
19512 const ptrdiff_t *icompq,
19513 const ptrdiff_t *nl,
19514 const ptrdiff_t *nr,
19515 const ptrdiff_t *sqre,
19516 ptrdiff_t *k,
19517 float *d,
19518 float *z,
19519 float *zw,
19520 float *vf,
19521 float *vfw,
19522 float *vl,
19523 float *vlw,
19524 const float *alpha,
19525 const float *beta,
19526 float *dsigma,
19527 ptrdiff_t *idx,
19528 ptrdiff_t *idxp,
19529 const ptrdiff_t *idxq,
19530 ptrdiff_t *perm,
19531 ptrdiff_t *givptr,
19532 ptrdiff_t *givcol,
19533 const ptrdiff_t *ldgcol,
19534 float *givnum,
19535 const ptrdiff_t *ldgnum,
19536 float *c,
19537 float *s,
19538 ptrdiff_t *info
19539);
19540
19541/* Source: slasd8.f */
19542#define slasd8 FORTRAN_WRAPPER(slasd8)
19543extern void slasd8(
19544 const ptrdiff_t *icompq,
19545 const ptrdiff_t *k,
19546 float *d,
19547 float *z,
19548 float *vf,
19549 float *vl,
19550 float *difl,
19551 float *difr,
19552 const ptrdiff_t *lddifr,
19553 float *dsigma,
19554 float *work,
19555 ptrdiff_t *info
19556);
19557
19558/* Source: slasda.f */
19559#define slasda FORTRAN_WRAPPER(slasda)
19560extern void slasda(
19561 const ptrdiff_t *icompq,
19562 const ptrdiff_t *smlsiz,
19563 const ptrdiff_t *n,
19564 const ptrdiff_t *sqre,
19565 float *d,
19566 const float *e,
19567 float *u,
19568 const ptrdiff_t *ldu,
19569 float *vt,
19570 ptrdiff_t *k,
19571 float *difl,
19572 float *difr,
19573 float *z,
19574 float *poles,
19575 ptrdiff_t *givptr,
19576 ptrdiff_t *givcol,
19577 const ptrdiff_t *ldgcol,
19578 ptrdiff_t *perm,
19579 float *givnum,
19580 float *c,
19581 float *s,
19582 float *work,
19583 ptrdiff_t *iwork,
19584 ptrdiff_t *info
19585);
19586
19587/* Source: slasdq.f */
19588#define slasdq FORTRAN_WRAPPER(slasdq)
19589extern void slasdq(
19590 const char *uplo,
19591 const ptrdiff_t *sqre,
19592 const ptrdiff_t *n,
19593 const ptrdiff_t *ncvt,
19594 const ptrdiff_t *nru,
19595 const ptrdiff_t *ncc,
19596 float *d,
19597 float *e,
19598 float *vt,
19599 const ptrdiff_t *ldvt,
19600 float *u,
19601 const ptrdiff_t *ldu,
19602 float *c,
19603 const ptrdiff_t *ldc,
19604 float *work,
19605 ptrdiff_t *info
19606);
19607
19608/* Source: slasdt.f */
19609#define slasdt FORTRAN_WRAPPER(slasdt)
19610extern void slasdt(
19611 const ptrdiff_t *n,
19612 ptrdiff_t *lvl,
19613 ptrdiff_t *nd,
19614 ptrdiff_t *inode,
19615 ptrdiff_t *ndiml,
19616 ptrdiff_t *ndimr,
19617 const ptrdiff_t *msub
19618);
19619
19620/* Source: slaset.f */
19621#define slaset FORTRAN_WRAPPER(slaset)
19622extern void slaset(
19623 const char *uplo,
19624 const ptrdiff_t *m,
19625 const ptrdiff_t *n,
19626 const float *alpha,
19627 const float *beta,
19628 float *a,
19629 const ptrdiff_t *lda
19630);
19631
19632/* Source: slasq1.f */
19633#define slasq1 FORTRAN_WRAPPER(slasq1)
19634extern void slasq1(
19635 const ptrdiff_t *n,
19636 float *d,
19637 float *e,
19638 float *work,
19639 ptrdiff_t *info
19640);
19641
19642/* Source: slasq2.f */
19643#define slasq2 FORTRAN_WRAPPER(slasq2)
19644extern void slasq2(
19645 const ptrdiff_t *n,
19646 float *z,
19647 ptrdiff_t *info
19648);
19649
19650/* Source: slasq3.f */
19651#define slasq3 FORTRAN_WRAPPER(slasq3)
19652extern void slasq3(
19653 const ptrdiff_t *i0,
19654 const ptrdiff_t *n0,
19655 const float *z,
19656 ptrdiff_t *pp,
19657 float *dmin,
19658 float *sigma,
19659 float *desig,
19660 const float *qmax,
19661 ptrdiff_t *nfail,
19662 ptrdiff_t *iter,
19663 ptrdiff_t *ndiv,
19664 const ptrdiff_t *ieee,
19665 ptrdiff_t *ttype,
19666 float *dmin1,
19667 float *dmin2,
19668 float *dn,
19669 float *dn1,
19670 float *dn2,
19671 float *g,
19672 float *tau
19673);
19674
19675/* Source: slasq4.f */
19676#define slasq4 FORTRAN_WRAPPER(slasq4)
19677extern void slasq4(
19678 const ptrdiff_t *i0,
19679 const ptrdiff_t *n0,
19680 const float *z,
19681 const ptrdiff_t *pp,
19682 ptrdiff_t *n0in,
19683 const float *dmin,
19684 const float *dmin1,
19685 const float *dmin2,
19686 const float *dn,
19687 const float *dn1,
19688 const float *dn2,
19689 float *tau,
19690 ptrdiff_t *ttype,
19691 float *g
19692);
19693
19694/* Source: slasq5.f */
19695#define slasq5 FORTRAN_WRAPPER(slasq5)
19696extern void slasq5(
19697 const ptrdiff_t *i0,
19698 const ptrdiff_t *n0,
19699 const float *z,
19700 const ptrdiff_t *pp,
19701 const float *tau,
19702 const float *sigma,
19703 float *dmin,
19704 float *dmin1,
19705 float *dmin2,
19706 float *dn,
19707 float *dnm1,
19708 float *dnm2,
19709 const ptrdiff_t *ieee,
19710 const float *eps
19711);
19712
19713/* Source: slasq6.f */
19714#define slasq6 FORTRAN_WRAPPER(slasq6)
19715extern void slasq6(
19716 const ptrdiff_t *i0,
19717 const ptrdiff_t *n0,
19718 const float *z,
19719 const ptrdiff_t *pp,
19720 float *dmin,
19721 float *dmin1,
19722 float *dmin2,
19723 float *dn,
19724 float *dnm1,
19725 float *dnm2
19726);
19727
19728/* Source: slasr.f */
19729#define slasr FORTRAN_WRAPPER(slasr)
19730extern void slasr(
19731 const char *side,
19732 const char *pivot,
19733 const char *direct,
19734 const ptrdiff_t *m,
19735 const ptrdiff_t *n,
19736 const float *c,
19737 const float *s,
19738 float *a,
19739 const ptrdiff_t *lda
19740);
19741
19742/* Source: slasrt.f */
19743#define slasrt FORTRAN_WRAPPER(slasrt)
19744extern void slasrt(
19745 const char *id,
19746 const ptrdiff_t *n,
19747 float *d,
19748 ptrdiff_t *info
19749);
19750
19751/* Source: slassq.f */
19752#define slassq FORTRAN_WRAPPER(slassq)
19753extern void slassq(
19754 const ptrdiff_t *n,
19755 const float *x,
19756 const ptrdiff_t *incx,
19757 float *scale,
19758 float *sumsq
19759);
19760
19761/* Source: slasv2.f */
19762#define slasv2 FORTRAN_WRAPPER(slasv2)
19763extern void slasv2(
19764 const float *f,
19765 const float *g,
19766 const float *h,
19767 float *ssmin,
19768 float *ssmax,
19769 float *snr,
19770 float *csr,
19771 float *snl,
19772 float *csl
19773);
19774
19775/* Source: slaswlq.f */
19776#define slaswlq FORTRAN_WRAPPER(slaswlq)
19777extern void slaswlq(
19778 const ptrdiff_t *m,
19779 const ptrdiff_t *n,
19780 const ptrdiff_t *mb,
19781 const ptrdiff_t *nb,
19782 float *a,
19783 const ptrdiff_t *lda,
19784 float *t,
19785 const ptrdiff_t *ldt,
19786 float *work,
19787 const ptrdiff_t *lwork,
19788 ptrdiff_t *info
19789);
19790
19791/* Source: slaswp.f */
19792#define slaswp FORTRAN_WRAPPER(slaswp)
19793extern void slaswp(
19794 const ptrdiff_t *n,
19795 float *a,
19796 const ptrdiff_t *lda,
19797 const ptrdiff_t *k1,
19798 const ptrdiff_t *k2,
19799 const ptrdiff_t *ipiv,
19800 const ptrdiff_t *incx
19801);
19802
19803/* Source: slasy2.f */
19804#define slasy2 FORTRAN_WRAPPER(slasy2)
19805extern void slasy2(
19806 const ptrdiff_t *ltranl,
19807 const ptrdiff_t *ltranr,
19808 const ptrdiff_t *isgn,
19809 const ptrdiff_t *n1,
19810 const ptrdiff_t *n2,
19811 const float *tl,
19812 const ptrdiff_t *ldtl,
19813 const float *tr,
19814 const ptrdiff_t *ldtr,
19815 const float *b,
19816 const ptrdiff_t *ldb,
19817 float *scale,
19818 float *x,
19819 const ptrdiff_t *ldx,
19820 float *xnorm,
19821 ptrdiff_t *info
19822);
19823
19824/* Source: slasyf.f */
19825#define slasyf FORTRAN_WRAPPER(slasyf)
19826extern void slasyf(
19827 const char *uplo,
19828 const ptrdiff_t *n,
19829 const ptrdiff_t *nb,
19830 ptrdiff_t *kb,
19831 float *a,
19832 const ptrdiff_t *lda,
19833 ptrdiff_t *ipiv,
19834 float *w,
19835 const ptrdiff_t *ldw,
19836 ptrdiff_t *info
19837);
19838
19839/* Source: slasyf_aa.f */
19840#define slasyf_aa FORTRAN_WRAPPER(slasyf_aa)
19841extern void slasyf_aa(
19842 const char *uplo,
19843 const ptrdiff_t *j1_,
19844 const ptrdiff_t *m,
19845 const ptrdiff_t *nb,
19846 float *a,
19847 const ptrdiff_t *lda,
19848 ptrdiff_t *ipiv,
19849 float *h,
19850 const ptrdiff_t *ldh,
19851 float *work,
19852 ptrdiff_t *info
19853);
19854
19855/* Source: slasyf_rk.f */
19856#define slasyf_rk FORTRAN_WRAPPER(slasyf_rk)
19857extern void slasyf_rk(
19858 char *uplo,
19859 ptrdiff_t *n,
19860 ptrdiff_t *nb,
19861 ptrdiff_t *kb,
19862 float *a,
19863 ptrdiff_t *lda,
19864 float *e,
19865 ptrdiff_t *ipiv,
19866 float *w,
19867 ptrdiff_t *ldw,
19868 ptrdiff_t *info
19869);
19870
19871/* Source: slasyf_rook.f */
19872#define slasyf_rook FORTRAN_WRAPPER(slasyf_rook)
19873extern void slasyf_rook(
19874 const char *uplo,
19875 const ptrdiff_t *n,
19876 const ptrdiff_t *nb,
19877 ptrdiff_t *kb,
19878 float *a,
19879 const ptrdiff_t *lda,
19880 ptrdiff_t *ipiv,
19881 float *w,
19882 const ptrdiff_t *ldw,
19883 ptrdiff_t *info
19884);
19885
19886/* Source: slatbs.f */
19887#define slatbs FORTRAN_WRAPPER(slatbs)
19888extern void slatbs(
19889 const char *uplo,
19890 const char *trans,
19891 const char *diag,
19892 const char *normin,
19893 const ptrdiff_t *n,
19894 const ptrdiff_t *kd,
19895 const float *ab,
19896 const ptrdiff_t *ldab,
19897 float *x,
19898 float *scale,
19899 float *cnorm,
19900 ptrdiff_t *info
19901);
19902
19903/* Source: slatdf.f */
19904#define slatdf FORTRAN_WRAPPER(slatdf)
19905extern void slatdf(
19906 const ptrdiff_t *ijob,
19907 const ptrdiff_t *n,
19908 const float *z,
19909 const ptrdiff_t *ldz,
19910 float *rhs,
19911 float *rdsum,
19912 float *rdscal,
19913 const ptrdiff_t *ipiv,
19914 const ptrdiff_t *jpiv
19915);
19916
19917/* Source: slatps.f */
19918#define slatps FORTRAN_WRAPPER(slatps)
19919extern void slatps(
19920 const char *uplo,
19921 const char *trans,
19922 const char *diag,
19923 const char *normin,
19924 const ptrdiff_t *n,
19925 const float *ap,
19926 float *x,
19927 float *scale,
19928 float *cnorm,
19929 ptrdiff_t *info
19930);
19931
19932/* Source: slatrd.f */
19933#define slatrd FORTRAN_WRAPPER(slatrd)
19934extern void slatrd(
19935 const char *uplo,
19936 const ptrdiff_t *n,
19937 const ptrdiff_t *nb,
19938 float *a,
19939 const ptrdiff_t *lda,
19940 float *e,
19941 float *tau,
19942 float *w,
19943 const ptrdiff_t *ldw
19944);
19945
19946/* Source: slatrs.f */
19947#define slatrs FORTRAN_WRAPPER(slatrs)
19948extern void slatrs(
19949 const char *uplo,
19950 const char *trans,
19951 const char *diag,
19952 const char *normin,
19953 const ptrdiff_t *n,
19954 const float *a,
19955 const ptrdiff_t *lda,
19956 float *x,
19957 float *scale,
19958 float *cnorm,
19959 ptrdiff_t *info
19960);
19961
19962/* Source: slatrz.f */
19963#define slatrz FORTRAN_WRAPPER(slatrz)
19964extern void slatrz(
19965 const ptrdiff_t *m,
19966 const ptrdiff_t *n,
19967 const ptrdiff_t *l,
19968 float *a,
19969 const ptrdiff_t *lda,
19970 float *tau,
19971 float *work
19972);
19973
19974/* Source: slatsqr.f */
19975#define slatsqr FORTRAN_WRAPPER(slatsqr)
19976extern void slatsqr(
19977 const ptrdiff_t *m,
19978 const ptrdiff_t *n,
19979 const ptrdiff_t *mb,
19980 const ptrdiff_t *nb,
19981 float *a,
19982 const ptrdiff_t *lda,
19983 float *t,
19984 const ptrdiff_t *ldt,
19985 float *work,
19986 const ptrdiff_t *lwork,
19987 ptrdiff_t *info
19988);
19989
19990/* Source: slauu2.f */
19991#define slauu2 FORTRAN_WRAPPER(slauu2)
19992extern void slauu2(
19993 const char *uplo,
19994 const ptrdiff_t *n,
19995 float *a,
19996 const ptrdiff_t *lda,
19997 ptrdiff_t *info
19998);
19999
20000/* Source: slauum.f */
20001#define slauum FORTRAN_WRAPPER(slauum)
20002extern void slauum(
20003 const char *uplo,
20004 const ptrdiff_t *n,
20005 float *a,
20006 const ptrdiff_t *lda,
20007 ptrdiff_t *info
20008);
20009
20010/* Source: sopgtr.f */
20011#define sopgtr FORTRAN_WRAPPER(sopgtr)
20012extern void sopgtr(
20013 const char *uplo,
20014 const ptrdiff_t *n,
20015 const float *ap,
20016 const float *tau,
20017 float *q,
20018 const ptrdiff_t *ldq,
20019 float *work,
20020 ptrdiff_t *info
20021);
20022
20023/* Source: sopmtr.f */
20024#define sopmtr FORTRAN_WRAPPER(sopmtr)
20025extern void sopmtr(
20026 const char *side,
20027 const char *uplo,
20028 const char *trans,
20029 const ptrdiff_t *m,
20030 const ptrdiff_t *n,
20031 const float *ap,
20032 const float *tau,
20033 float *c,
20034 const ptrdiff_t *ldc,
20035 float *work,
20036 ptrdiff_t *info
20037);
20038
20039/* Source: sorbdb.f */
20040#define sorbdb FORTRAN_WRAPPER(sorbdb)
20041extern void sorbdb(
20042 const char *trans,
20043 const char *signs,
20044 const ptrdiff_t *m,
20045 const ptrdiff_t *p,
20046 const ptrdiff_t *q,
20047 float *x11,
20048 const ptrdiff_t *ldx11,
20049 float *x12,
20050 const ptrdiff_t *ldx12,
20051 float *x21,
20052 const ptrdiff_t *ldx21,
20053 float *x22,
20054 const ptrdiff_t *ldx22,
20055 float *theta,
20056 float *phi,
20057 float *taup1,
20058 float *taup2,
20059 float *tauq1,
20060 float *tauq2,
20061 float *work,
20062 const ptrdiff_t *lwork,
20063 ptrdiff_t *info
20064);
20065
20066/* Source: sorbdb1.f */
20067#define sorbdb1 FORTRAN_WRAPPER(sorbdb1)
20068extern void sorbdb1(
20069 const ptrdiff_t *m,
20070 const ptrdiff_t *p,
20071 const ptrdiff_t *q,
20072 float *x11,
20073 const ptrdiff_t *ldx11,
20074 float *x21,
20075 const ptrdiff_t *ldx21,
20076 float *theta,
20077 float *phi,
20078 float *taup1,
20079 float *taup2,
20080 float *tauq1,
20081 float *work,
20082 const ptrdiff_t *lwork,
20083 ptrdiff_t *info
20084);
20085
20086/* Source: sorbdb2.f */
20087#define sorbdb2 FORTRAN_WRAPPER(sorbdb2)
20088extern void sorbdb2(
20089 const ptrdiff_t *m,
20090 const ptrdiff_t *p,
20091 const ptrdiff_t *q,
20092 float *x11,
20093 const ptrdiff_t *ldx11,
20094 float *x21,
20095 const ptrdiff_t *ldx21,
20096 float *theta,
20097 float *phi,
20098 float *taup1,
20099 float *taup2,
20100 float *tauq1,
20101 float *work,
20102 const ptrdiff_t *lwork,
20103 ptrdiff_t *info
20104);
20105
20106/* Source: sorbdb3.f */
20107#define sorbdb3 FORTRAN_WRAPPER(sorbdb3)
20108extern void sorbdb3(
20109 const ptrdiff_t *m,
20110 const ptrdiff_t *p,
20111 const ptrdiff_t *q,
20112 float *x11,
20113 const ptrdiff_t *ldx11,
20114 float *x21,
20115 const ptrdiff_t *ldx21,
20116 float *theta,
20117 float *phi,
20118 float *taup1,
20119 float *taup2,
20120 float *tauq1,
20121 float *work,
20122 const ptrdiff_t *lwork,
20123 ptrdiff_t *info
20124);
20125
20126/* Source: sorbdb4.f */
20127#define sorbdb4 FORTRAN_WRAPPER(sorbdb4)
20128extern void sorbdb4(
20129 const ptrdiff_t *m,
20130 const ptrdiff_t *p,
20131 const ptrdiff_t *q,
20132 float *x11,
20133 const ptrdiff_t *ldx11,
20134 float *x21,
20135 const ptrdiff_t *ldx21,
20136 float *theta,
20137 float *phi,
20138 float *taup1,
20139 float *taup2,
20140 float *tauq1,
20141 float *phantom,
20142 float *work,
20143 const ptrdiff_t *lwork,
20144 ptrdiff_t *info
20145);
20146
20147/* Source: sorbdb5.f */
20148#define sorbdb5 FORTRAN_WRAPPER(sorbdb5)
20149extern void sorbdb5(
20150 const ptrdiff_t *m1,
20151 const ptrdiff_t *m2,
20152 const ptrdiff_t *n,
20153 float *x1,
20154 const ptrdiff_t *incx1,
20155 float *x2,
20156 const ptrdiff_t *incx2,
20157 float *q1,
20158 const ptrdiff_t *ldq1,
20159 float *q2,
20160 const ptrdiff_t *ldq2,
20161 float *work,
20162 const ptrdiff_t *lwork,
20163 ptrdiff_t *info
20164);
20165
20166/* Source: sorbdb6.f */
20167#define sorbdb6 FORTRAN_WRAPPER(sorbdb6)
20168extern void sorbdb6(
20169 const ptrdiff_t *m1,
20170 const ptrdiff_t *m2,
20171 const ptrdiff_t *n,
20172 float *x1,
20173 const ptrdiff_t *incx1,
20174 float *x2,
20175 const ptrdiff_t *incx2,
20176 float *q1,
20177 const ptrdiff_t *ldq1,
20178 float *q2,
20179 const ptrdiff_t *ldq2,
20180 float *work,
20181 const ptrdiff_t *lwork,
20182 ptrdiff_t *info
20183);
20184
20185/* Source: sorcsd.f */
20186#define sorcsd FORTRAN_WRAPPER(sorcsd)
20187extern void sorcsd(
20188 const char *jobu1,
20189 const char *jobu2,
20190 const char *jobv1t,
20191 const char *jobv2t,
20192 const char *trans,
20193 const char *signs,
20194 const ptrdiff_t *m,
20195 const ptrdiff_t *p,
20196 const ptrdiff_t *q,
20197 float *x11,
20198 const ptrdiff_t *ldx11,
20199 float *x12,
20200 const ptrdiff_t *ldx12,
20201 float *x21,
20202 const ptrdiff_t *ldx21,
20203 float *x22,
20204 const ptrdiff_t *ldx22,
20205 float *theta,
20206 float *u1,
20207 const ptrdiff_t *ldu1,
20208 float *u2,
20209 const ptrdiff_t *ldu2,
20210 float *v1t,
20211 const ptrdiff_t *ldv1t,
20212 float *v2t,
20213 const ptrdiff_t *ldv2t,
20214 float *work,
20215 const ptrdiff_t *lwork,
20216 ptrdiff_t *iwork,
20217 ptrdiff_t *info
20218);
20219
20220/* Source: sorcsd2by1.f */
20221#define sorcsd2by1 FORTRAN_WRAPPER(sorcsd2by1)
20222extern void sorcsd2by1(
20223 const char *jobu1,
20224 const char *jobu2,
20225 const char *jobv1t,
20226 const ptrdiff_t *m,
20227 const ptrdiff_t *p,
20228 const ptrdiff_t *q,
20229 float *x11,
20230 const ptrdiff_t *ldx11,
20231 float *x21,
20232 const ptrdiff_t *ldx21,
20233 float *theta,
20234 float *u1,
20235 const ptrdiff_t *ldu1,
20236 float *u2,
20237 const ptrdiff_t *ldu2,
20238 float *v1t,
20239 const ptrdiff_t *ldv1t,
20240 float *work,
20241 const ptrdiff_t *lwork,
20242 ptrdiff_t *iwork,
20243 ptrdiff_t *info
20244);
20245
20246/* Source: sorg2l.f */
20247#define sorg2l FORTRAN_WRAPPER(sorg2l)
20248extern void sorg2l(
20249 const ptrdiff_t *m,
20250 const ptrdiff_t *n,
20251 const ptrdiff_t *k,
20252 float *a,
20253 const ptrdiff_t *lda,
20254 const float *tau,
20255 float *work,
20256 ptrdiff_t *info
20257);
20258
20259/* Source: sorg2r.f */
20260#define sorg2r FORTRAN_WRAPPER(sorg2r)
20261extern void sorg2r(
20262 const ptrdiff_t *m,
20263 const ptrdiff_t *n,
20264 const ptrdiff_t *k,
20265 float *a,
20266 const ptrdiff_t *lda,
20267 const float *tau,
20268 float *work,
20269 ptrdiff_t *info
20270);
20271
20272/* Source: sorgbr.f */
20273#define sorgbr FORTRAN_WRAPPER(sorgbr)
20274extern void sorgbr(
20275 const char *vect,
20276 const ptrdiff_t *m,
20277 const ptrdiff_t *n,
20278 const ptrdiff_t *k,
20279 float *a,
20280 const ptrdiff_t *lda,
20281 const float *tau,
20282 float *work,
20283 const ptrdiff_t *lwork,
20284 ptrdiff_t *info
20285);
20286
20287/* Source: sorghr.f */
20288#define sorghr FORTRAN_WRAPPER(sorghr)
20289extern void sorghr(
20290 const ptrdiff_t *n,
20291 const ptrdiff_t *ilo,
20292 const ptrdiff_t *ihi,
20293 float *a,
20294 const ptrdiff_t *lda,
20295 const float *tau,
20296 float *work,
20297 const ptrdiff_t *lwork,
20298 ptrdiff_t *info
20299);
20300
20301/* Source: sorgl2.f */
20302#define sorgl2 FORTRAN_WRAPPER(sorgl2)
20303extern void sorgl2(
20304 const ptrdiff_t *m,
20305 const ptrdiff_t *n,
20306 const ptrdiff_t *k,
20307 float *a,
20308 const ptrdiff_t *lda,
20309 const float *tau,
20310 float *work,
20311 ptrdiff_t *info
20312);
20313
20314/* Source: sorglq.f */
20315#define sorglq FORTRAN_WRAPPER(sorglq)
20316extern void sorglq(
20317 const ptrdiff_t *m,
20318 const ptrdiff_t *n,
20319 const ptrdiff_t *k,
20320 float *a,
20321 const ptrdiff_t *lda,
20322 const float *tau,
20323 float *work,
20324 const ptrdiff_t *lwork,
20325 ptrdiff_t *info
20326);
20327
20328/* Source: sorgql.f */
20329#define sorgql FORTRAN_WRAPPER(sorgql)
20330extern void sorgql(
20331 const ptrdiff_t *m,
20332 const ptrdiff_t *n,
20333 const ptrdiff_t *k,
20334 float *a,
20335 const ptrdiff_t *lda,
20336 const float *tau,
20337 float *work,
20338 const ptrdiff_t *lwork,
20339 ptrdiff_t *info
20340);
20341
20342/* Source: sorgqr.f */
20343#define sorgqr FORTRAN_WRAPPER(sorgqr)
20344extern void sorgqr(
20345 const ptrdiff_t *m,
20346 const ptrdiff_t *n,
20347 const ptrdiff_t *k,
20348 float *a,
20349 const ptrdiff_t *lda,
20350 const float *tau,
20351 float *work,
20352 const ptrdiff_t *lwork,
20353 ptrdiff_t *info
20354);
20355
20356/* Source: sorgr2.f */
20357#define sorgr2 FORTRAN_WRAPPER(sorgr2)
20358extern void sorgr2(
20359 const ptrdiff_t *m,
20360 const ptrdiff_t *n,
20361 const ptrdiff_t *k,
20362 float *a,
20363 const ptrdiff_t *lda,
20364 const float *tau,
20365 float *work,
20366 ptrdiff_t *info
20367);
20368
20369/* Source: sorgrq.f */
20370#define sorgrq FORTRAN_WRAPPER(sorgrq)
20371extern void sorgrq(
20372 const ptrdiff_t *m,
20373 const ptrdiff_t *n,
20374 const ptrdiff_t *k,
20375 float *a,
20376 const ptrdiff_t *lda,
20377 const float *tau,
20378 float *work,
20379 const ptrdiff_t *lwork,
20380 ptrdiff_t *info
20381);
20382
20383/* Source: sorgtr.f */
20384#define sorgtr FORTRAN_WRAPPER(sorgtr)
20385extern void sorgtr(
20386 const char *uplo,
20387 const ptrdiff_t *n,
20388 float *a,
20389 const ptrdiff_t *lda,
20390 const float *tau,
20391 float *work,
20392 const ptrdiff_t *lwork,
20393 ptrdiff_t *info
20394);
20395
20396/* Source: sorm22.f */
20397#define sorm22 FORTRAN_WRAPPER(sorm22)
20398extern void sorm22(
20399 const char *side,
20400 const char *trans,
20401 const ptrdiff_t *m,
20402 const ptrdiff_t *n,
20403 const ptrdiff_t *n1,
20404 const ptrdiff_t *n2,
20405 const float *q,
20406 const ptrdiff_t *ldq,
20407 float *c,
20408 const ptrdiff_t *ldc,
20409 float *work,
20410 const ptrdiff_t *lwork,
20411 ptrdiff_t *info
20412);
20413
20414/* Source: sorm2l.f */
20415#define sorm2l FORTRAN_WRAPPER(sorm2l)
20416extern void sorm2l(
20417 const char *side,
20418 const char *trans,
20419 const ptrdiff_t *m,
20420 const ptrdiff_t *n,
20421 const ptrdiff_t *k,
20422 const float *a,
20423 const ptrdiff_t *lda,
20424 const float *tau,
20425 float *c,
20426 const ptrdiff_t *ldc,
20427 float *work,
20428 ptrdiff_t *info
20429);
20430
20431/* Source: sorm2r.f */
20432#define sorm2r FORTRAN_WRAPPER(sorm2r)
20433extern void sorm2r(
20434 const char *side,
20435 const char *trans,
20436 const ptrdiff_t *m,
20437 const ptrdiff_t *n,
20438 const ptrdiff_t *k,
20439 const float *a,
20440 const ptrdiff_t *lda,
20441 const float *tau,
20442 float *c,
20443 const ptrdiff_t *ldc,
20444 float *work,
20445 ptrdiff_t *info
20446);
20447
20448/* Source: sormbr.f */
20449#define sormbr FORTRAN_WRAPPER(sormbr)
20450extern void sormbr(
20451 const char *vect,
20452 const char *side,
20453 const char *trans,
20454 const ptrdiff_t *m,
20455 const ptrdiff_t *n,
20456 const ptrdiff_t *k,
20457 const float *a,
20458 const ptrdiff_t *lda,
20459 const float *tau,
20460 float *c,
20461 const ptrdiff_t *ldc,
20462 float *work,
20463 const ptrdiff_t *lwork,
20464 ptrdiff_t *info
20465);
20466
20467/* Source: sormhr.f */
20468#define sormhr FORTRAN_WRAPPER(sormhr)
20469extern void sormhr(
20470 const char *side,
20471 const char *trans,
20472 const ptrdiff_t *m,
20473 const ptrdiff_t *n,
20474 const ptrdiff_t *ilo,
20475 const ptrdiff_t *ihi,
20476 const float *a,
20477 const ptrdiff_t *lda,
20478 const float *tau,
20479 float *c,
20480 const ptrdiff_t *ldc,
20481 float *work,
20482 const ptrdiff_t *lwork,
20483 ptrdiff_t *info
20484);
20485
20486/* Source: sorml2.f */
20487#define sorml2 FORTRAN_WRAPPER(sorml2)
20488extern void sorml2(
20489 const char *side,
20490 const char *trans,
20491 const ptrdiff_t *m,
20492 const ptrdiff_t *n,
20493 const ptrdiff_t *k,
20494 const float *a,
20495 const ptrdiff_t *lda,
20496 const float *tau,
20497 float *c,
20498 const ptrdiff_t *ldc,
20499 float *work,
20500 ptrdiff_t *info
20501);
20502
20503/* Source: sormlq.f */
20504#define sormlq FORTRAN_WRAPPER(sormlq)
20505extern void sormlq(
20506 const char *side,
20507 const char *trans,
20508 const ptrdiff_t *m,
20509 const ptrdiff_t *n,
20510 const ptrdiff_t *k,
20511 const float *a,
20512 const ptrdiff_t *lda,
20513 const float *tau,
20514 float *c,
20515 const ptrdiff_t *ldc,
20516 float *work,
20517 const ptrdiff_t *lwork,
20518 ptrdiff_t *info
20519);
20520
20521/* Source: sormql.f */
20522#define sormql FORTRAN_WRAPPER(sormql)
20523extern void sormql(
20524 const char *side,
20525 const char *trans,
20526 const ptrdiff_t *m,
20527 const ptrdiff_t *n,
20528 const ptrdiff_t *k,
20529 const float *a,
20530 const ptrdiff_t *lda,
20531 const float *tau,
20532 float *c,
20533 const ptrdiff_t *ldc,
20534 float *work,
20535 const ptrdiff_t *lwork,
20536 ptrdiff_t *info
20537);
20538
20539/* Source: sormqr.f */
20540#define sormqr FORTRAN_WRAPPER(sormqr)
20541extern void sormqr(
20542 const char *side,
20543 const char *trans,
20544 const ptrdiff_t *m,
20545 const ptrdiff_t *n,
20546 const ptrdiff_t *k,
20547 const float *a,
20548 const ptrdiff_t *lda,
20549 const float *tau,
20550 float *c,
20551 const ptrdiff_t *ldc,
20552 float *work,
20553 const ptrdiff_t *lwork,
20554 ptrdiff_t *info
20555);
20556
20557/* Source: sormr2.f */
20558#define sormr2 FORTRAN_WRAPPER(sormr2)
20559extern void sormr2(
20560 const char *side,
20561 const char *trans,
20562 const ptrdiff_t *m,
20563 const ptrdiff_t *n,
20564 const ptrdiff_t *k,
20565 const float *a,
20566 const ptrdiff_t *lda,
20567 const float *tau,
20568 float *c,
20569 const ptrdiff_t *ldc,
20570 float *work,
20571 ptrdiff_t *info
20572);
20573
20574/* Source: sormr3.f */
20575#define sormr3 FORTRAN_WRAPPER(sormr3)
20576extern void sormr3(
20577 const char *side,
20578 const char *trans,
20579 const ptrdiff_t *m,
20580 const ptrdiff_t *n,
20581 const ptrdiff_t *k,
20582 const ptrdiff_t *l,
20583 const float *a,
20584 const ptrdiff_t *lda,
20585 const float *tau,
20586 float *c,
20587 const ptrdiff_t *ldc,
20588 float *work,
20589 ptrdiff_t *info
20590);
20591
20592/* Source: sormrq.f */
20593#define sormrq FORTRAN_WRAPPER(sormrq)
20594extern void sormrq(
20595 const char *side,
20596 const char *trans,
20597 const ptrdiff_t *m,
20598 const ptrdiff_t *n,
20599 const ptrdiff_t *k,
20600 const float *a,
20601 const ptrdiff_t *lda,
20602 const float *tau,
20603 float *c,
20604 const ptrdiff_t *ldc,
20605 float *work,
20606 const ptrdiff_t *lwork,
20607 ptrdiff_t *info
20608);
20609
20610/* Source: sormrz.f */
20611#define sormrz FORTRAN_WRAPPER(sormrz)
20612extern void sormrz(
20613 const char *side,
20614 const char *trans,
20615 const ptrdiff_t *m,
20616 const ptrdiff_t *n,
20617 const ptrdiff_t *k,
20618 const ptrdiff_t *l,
20619 const float *a,
20620 const ptrdiff_t *lda,
20621 const float *tau,
20622 float *c,
20623 const ptrdiff_t *ldc,
20624 float *work,
20625 const ptrdiff_t *lwork,
20626 ptrdiff_t *info
20627);
20628
20629/* Source: sormtr.f */
20630#define sormtr FORTRAN_WRAPPER(sormtr)
20631extern void sormtr(
20632 const char *side,
20633 const char *uplo,
20634 const char *trans,
20635 const ptrdiff_t *m,
20636 const ptrdiff_t *n,
20637 const float *a,
20638 const ptrdiff_t *lda,
20639 const float *tau,
20640 float *c,
20641 const ptrdiff_t *ldc,
20642 float *work,
20643 const ptrdiff_t *lwork,
20644 ptrdiff_t *info
20645);
20646
20647/* Source: spbcon.f */
20648#define spbcon FORTRAN_WRAPPER(spbcon)
20649extern void spbcon(
20650 const char *uplo,
20651 const ptrdiff_t *n,
20652 const ptrdiff_t *kd,
20653 const float *ab,
20654 const ptrdiff_t *ldab,
20655 const float *anorm,
20656 float *rcond,
20657 float *work,
20658 ptrdiff_t *iwork,
20659 ptrdiff_t *info
20660);
20661
20662/* Source: spbequ.f */
20663#define spbequ FORTRAN_WRAPPER(spbequ)
20664extern void spbequ(
20665 const char *uplo,
20666 const ptrdiff_t *n,
20667 const ptrdiff_t *kd,
20668 const float *ab,
20669 const ptrdiff_t *ldab,
20670 float *s,
20671 float *scond,
20672 float *amax,
20673 ptrdiff_t *info
20674);
20675
20676/* Source: spbrfs.f */
20677#define spbrfs FORTRAN_WRAPPER(spbrfs)
20678extern void spbrfs(
20679 const char *uplo,
20680 const ptrdiff_t *n,
20681 const ptrdiff_t *kd,
20682 const ptrdiff_t *nrhs,
20683 const float *ab,
20684 const ptrdiff_t *ldab,
20685 const float *afb,
20686 const ptrdiff_t *ldafb,
20687 const float *b,
20688 const ptrdiff_t *ldb,
20689 float *x,
20690 const ptrdiff_t *ldx,
20691 float *ferr,
20692 float *berr,
20693 float *work,
20694 ptrdiff_t *iwork,
20695 ptrdiff_t *info
20696);
20697
20698/* Source: spbstf.f */
20699#define spbstf FORTRAN_WRAPPER(spbstf)
20700extern void spbstf(
20701 const char *uplo,
20702 const ptrdiff_t *n,
20703 const ptrdiff_t *kd,
20704 float *ab,
20705 const ptrdiff_t *ldab,
20706 ptrdiff_t *info
20707);
20708
20709/* Source: spbsv.f */
20710#define spbsv FORTRAN_WRAPPER(spbsv)
20711extern void spbsv(
20712 const char *uplo,
20713 const ptrdiff_t *n,
20714 const ptrdiff_t *kd,
20715 const ptrdiff_t *nrhs,
20716 float *ab,
20717 const ptrdiff_t *ldab,
20718 float *b,
20719 const ptrdiff_t *ldb,
20720 ptrdiff_t *info
20721);
20722
20723/* Source: spbsvx.f */
20724#define spbsvx FORTRAN_WRAPPER(spbsvx)
20725extern void spbsvx(
20726 const char *fact,
20727 const char *uplo,
20728 const ptrdiff_t *n,
20729 const ptrdiff_t *kd,
20730 const ptrdiff_t *nrhs,
20731 float *ab,
20732 const ptrdiff_t *ldab,
20733 float *afb,
20734 const ptrdiff_t *ldafb,
20735 char *equed,
20736 float *s,
20737 float *b,
20738 const ptrdiff_t *ldb,
20739 float *x,
20740 const ptrdiff_t *ldx,
20741 float *rcond,
20742 float *ferr,
20743 float *berr,
20744 float *work,
20745 ptrdiff_t *iwork,
20746 ptrdiff_t *info
20747);
20748
20749/* Source: spbtf2.f */
20750#define spbtf2 FORTRAN_WRAPPER(spbtf2)
20751extern void spbtf2(
20752 const char *uplo,
20753 const ptrdiff_t *n,
20754 const ptrdiff_t *kd,
20755 float *ab,
20756 const ptrdiff_t *ldab,
20757 ptrdiff_t *info
20758);
20759
20760/* Source: spbtrf.f */
20761#define spbtrf FORTRAN_WRAPPER(spbtrf)
20762extern void spbtrf(
20763 const char *uplo,
20764 const ptrdiff_t *n,
20765 const ptrdiff_t *kd,
20766 float *ab,
20767 const ptrdiff_t *ldab,
20768 ptrdiff_t *info
20769);
20770
20771/* Source: spbtrs.f */
20772#define spbtrs FORTRAN_WRAPPER(spbtrs)
20773extern void spbtrs(
20774 const char *uplo,
20775 const ptrdiff_t *n,
20776 const ptrdiff_t *kd,
20777 const ptrdiff_t *nrhs,
20778 const float *ab,
20779 const ptrdiff_t *ldab,
20780 float *b,
20781 const ptrdiff_t *ldb,
20782 ptrdiff_t *info
20783);
20784
20785/* Source: spftrf.f */
20786#define spftrf FORTRAN_WRAPPER(spftrf)
20787extern void spftrf(
20788 const char *transr,
20789 const char *uplo,
20790 const ptrdiff_t *n,
20791 float *a,
20792 ptrdiff_t *info
20793);
20794
20795/* Source: spftri.f */
20796#define spftri FORTRAN_WRAPPER(spftri)
20797extern void spftri(
20798 const char *transr,
20799 const char *uplo,
20800 const ptrdiff_t *n,
20801 float *a,
20802 ptrdiff_t *info
20803);
20804
20805/* Source: spftrs.f */
20806#define spftrs FORTRAN_WRAPPER(spftrs)
20807extern void spftrs(
20808 const char *transr,
20809 const char *uplo,
20810 const ptrdiff_t *n,
20811 const ptrdiff_t *nrhs,
20812 const float *a,
20813 float *b,
20814 const ptrdiff_t *ldb,
20815 ptrdiff_t *info
20816);
20817
20818/* Source: spocon.f */
20819#define spocon FORTRAN_WRAPPER(spocon)
20820extern void spocon(
20821 const char *uplo,
20822 const ptrdiff_t *n,
20823 const float *a,
20824 const ptrdiff_t *lda,
20825 const float *anorm,
20826 float *rcond,
20827 float *work,
20828 ptrdiff_t *iwork,
20829 ptrdiff_t *info
20830);
20831
20832/* Source: spoequ.f */
20833#define spoequ FORTRAN_WRAPPER(spoequ)
20834extern void spoequ(
20835 const ptrdiff_t *n,
20836 const float *a,
20837 const ptrdiff_t *lda,
20838 float *s,
20839 float *scond,
20840 float *amax,
20841 ptrdiff_t *info
20842);
20843
20844/* Source: spoequb.f */
20845#define spoequb FORTRAN_WRAPPER(spoequb)
20846extern void spoequb(
20847 const ptrdiff_t *n,
20848 const float *a,
20849 const ptrdiff_t *lda,
20850 float *s,
20851 float *scond,
20852 float *amax,
20853 ptrdiff_t *info
20854);
20855
20856/* Source: sporfs.f */
20857#define sporfs FORTRAN_WRAPPER(sporfs)
20858extern void sporfs(
20859 const char *uplo,
20860 const ptrdiff_t *n,
20861 const ptrdiff_t *nrhs,
20862 const float *a,
20863 const ptrdiff_t *lda,
20864 const float *af,
20865 const ptrdiff_t *ldaf,
20866 const float *b,
20867 const ptrdiff_t *ldb,
20868 float *x,
20869 const ptrdiff_t *ldx,
20870 float *ferr,
20871 float *berr,
20872 float *work,
20873 ptrdiff_t *iwork,
20874 ptrdiff_t *info
20875);
20876
20877/* Source: sposv.f */
20878#define sposv FORTRAN_WRAPPER(sposv)
20879extern void sposv(
20880 const char *uplo,
20881 const ptrdiff_t *n,
20882 const ptrdiff_t *nrhs,
20883 float *a,
20884 const ptrdiff_t *lda,
20885 float *b,
20886 const ptrdiff_t *ldb,
20887 ptrdiff_t *info
20888);
20889
20890/* Source: sposvx.f */
20891#define sposvx FORTRAN_WRAPPER(sposvx)
20892extern void sposvx(
20893 const char *fact,
20894 const char *uplo,
20895 const ptrdiff_t *n,
20896 const ptrdiff_t *nrhs,
20897 float *a,
20898 const ptrdiff_t *lda,
20899 float *af,
20900 const ptrdiff_t *ldaf,
20901 char *equed,
20902 float *s,
20903 float *b,
20904 const ptrdiff_t *ldb,
20905 float *x,
20906 const ptrdiff_t *ldx,
20907 float *rcond,
20908 float *ferr,
20909 float *berr,
20910 float *work,
20911 ptrdiff_t *iwork,
20912 ptrdiff_t *info
20913);
20914
20915/* Source: spotf2.f */
20916#define spotf2 FORTRAN_WRAPPER(spotf2)
20917extern void spotf2(
20918 const char *uplo,
20919 const ptrdiff_t *n,
20920 float *a,
20921 const ptrdiff_t *lda,
20922 ptrdiff_t *info
20923);
20924
20925/* Source: spotrf.f */
20926#define spotrf FORTRAN_WRAPPER(spotrf)
20927extern void spotrf(
20928 const char *uplo,
20929 const ptrdiff_t *n,
20930 float *a,
20931 const ptrdiff_t *lda,
20932 ptrdiff_t *info
20933);
20934
20935/* Source: spotrf2.f */
20936#define spotrf2 FORTRAN_WRAPPER(spotrf2)
20937extern void spotrf2(
20938 const char *uplo,
20939 const ptrdiff_t *n,
20940 float *a,
20941 const ptrdiff_t *lda,
20942 ptrdiff_t *info
20943);
20944
20945/* Source: spotri.f */
20946#define spotri FORTRAN_WRAPPER(spotri)
20947extern void spotri(
20948 const char *uplo,
20949 const ptrdiff_t *n,
20950 float *a,
20951 const ptrdiff_t *lda,
20952 ptrdiff_t *info
20953);
20954
20955/* Source: spotrs.f */
20956#define spotrs FORTRAN_WRAPPER(spotrs)
20957extern void spotrs(
20958 const char *uplo,
20959 const ptrdiff_t *n,
20960 const ptrdiff_t *nrhs,
20961 const float *a,
20962 const ptrdiff_t *lda,
20963 float *b,
20964 const ptrdiff_t *ldb,
20965 ptrdiff_t *info
20966);
20967
20968/* Source: sppcon.f */
20969#define sppcon FORTRAN_WRAPPER(sppcon)
20970extern void sppcon(
20971 const char *uplo,
20972 const ptrdiff_t *n,
20973 const float *ap,
20974 const float *anorm,
20975 float *rcond,
20976 float *work,
20977 ptrdiff_t *iwork,
20978 ptrdiff_t *info
20979);
20980
20981/* Source: sppequ.f */
20982#define sppequ FORTRAN_WRAPPER(sppequ)
20983extern void sppequ(
20984 const char *uplo,
20985 const ptrdiff_t *n,
20986 const float *ap,
20987 float *s,
20988 float *scond,
20989 float *amax,
20990 ptrdiff_t *info
20991);
20992
20993/* Source: spprfs.f */
20994#define spprfs FORTRAN_WRAPPER(spprfs)
20995extern void spprfs(
20996 const char *uplo,
20997 const ptrdiff_t *n,
20998 const ptrdiff_t *nrhs,
20999 const float *ap,
21000 const float *afp,
21001 const float *b,
21002 const ptrdiff_t *ldb,
21003 float *x,
21004 const ptrdiff_t *ldx,
21005 float *ferr,
21006 float *berr,
21007 float *work,
21008 ptrdiff_t *iwork,
21009 ptrdiff_t *info
21010);
21011
21012/* Source: sppsv.f */
21013#define sppsv FORTRAN_WRAPPER(sppsv)
21014extern void sppsv(
21015 const char *uplo,
21016 const ptrdiff_t *n,
21017 const ptrdiff_t *nrhs,
21018 float *ap,
21019 float *b,
21020 const ptrdiff_t *ldb,
21021 ptrdiff_t *info
21022);
21023
21024/* Source: sppsvx.f */
21025#define sppsvx FORTRAN_WRAPPER(sppsvx)
21026extern void sppsvx(
21027 const char *fact,
21028 const char *uplo,
21029 const ptrdiff_t *n,
21030 const ptrdiff_t *nrhs,
21031 float *ap,
21032 float *afp,
21033 char *equed,
21034 float *s,
21035 float *b,
21036 const ptrdiff_t *ldb,
21037 float *x,
21038 const ptrdiff_t *ldx,
21039 float *rcond,
21040 float *ferr,
21041 float *berr,
21042 float *work,
21043 ptrdiff_t *iwork,
21044 ptrdiff_t *info
21045);
21046
21047/* Source: spptrf.f */
21048#define spptrf FORTRAN_WRAPPER(spptrf)
21049extern void spptrf(
21050 const char *uplo,
21051 const ptrdiff_t *n,
21052 float *ap,
21053 ptrdiff_t *info
21054);
21055
21056/* Source: spptri.f */
21057#define spptri FORTRAN_WRAPPER(spptri)
21058extern void spptri(
21059 const char *uplo,
21060 const ptrdiff_t *n,
21061 float *ap,
21062 ptrdiff_t *info
21063);
21064
21065/* Source: spptrs.f */
21066#define spptrs FORTRAN_WRAPPER(spptrs)
21067extern void spptrs(
21068 const char *uplo,
21069 const ptrdiff_t *n,
21070 const ptrdiff_t *nrhs,
21071 const float *ap,
21072 float *b,
21073 const ptrdiff_t *ldb,
21074 ptrdiff_t *info
21075);
21076
21077/* Source: spstf2.f */
21078#define spstf2 FORTRAN_WRAPPER(spstf2)
21079extern void spstf2(
21080 const char *uplo,
21081 const ptrdiff_t *n,
21082 float *a,
21083 const ptrdiff_t *lda,
21084 ptrdiff_t *piv,
21085 ptrdiff_t *rank,
21086 const float *tol,
21087 float *work,
21088 ptrdiff_t *info
21089);
21090
21091/* Source: spstrf.f */
21092#define spstrf FORTRAN_WRAPPER(spstrf)
21093extern void spstrf(
21094 const char *uplo,
21095 const ptrdiff_t *n,
21096 float *a,
21097 const ptrdiff_t *lda,
21098 ptrdiff_t *piv,
21099 ptrdiff_t *rank,
21100 const float *tol,
21101 float *work,
21102 ptrdiff_t *info
21103);
21104
21105/* Source: sptcon.f */
21106#define sptcon FORTRAN_WRAPPER(sptcon)
21107extern void sptcon(
21108 const ptrdiff_t *n,
21109 const float *d,
21110 const float *e,
21111 const float *anorm,
21112 float *rcond,
21113 float *work,
21114 ptrdiff_t *info
21115);
21116
21117/* Source: spteqr.f */
21118#define spteqr FORTRAN_WRAPPER(spteqr)
21119extern void spteqr(
21120 const char *compz,
21121 const ptrdiff_t *n,
21122 float *d,
21123 float *e,
21124 float *z,
21125 const ptrdiff_t *ldz,
21126 float *work,
21127 ptrdiff_t *info
21128);
21129
21130/* Source: sptrfs.f */
21131#define sptrfs FORTRAN_WRAPPER(sptrfs)
21132extern void sptrfs(
21133 const ptrdiff_t *n,
21134 const ptrdiff_t *nrhs,
21135 const float *d,
21136 const float *e,
21137 const float *df,
21138 const float *ef,
21139 const float *b,
21140 const ptrdiff_t *ldb,
21141 float *x,
21142 const ptrdiff_t *ldx,
21143 float *ferr,
21144 float *berr,
21145 float *work,
21146 ptrdiff_t *info
21147);
21148
21149/* Source: sptsv.f */
21150#define sptsv FORTRAN_WRAPPER(sptsv)
21151extern void sptsv(
21152 const ptrdiff_t *n,
21153 const ptrdiff_t *nrhs,
21154 float *d,
21155 float *e,
21156 float *b,
21157 const ptrdiff_t *ldb,
21158 ptrdiff_t *info
21159);
21160
21161/* Source: sptsvx.f */
21162#define sptsvx FORTRAN_WRAPPER(sptsvx)
21163extern void sptsvx(
21164 const char *fact,
21165 const ptrdiff_t *n,
21166 const ptrdiff_t *nrhs,
21167 const float *d,
21168 const float *e,
21169 float *df,
21170 float *ef,
21171 const float *b,
21172 const ptrdiff_t *ldb,
21173 float *x,
21174 const ptrdiff_t *ldx,
21175 float *rcond,
21176 float *ferr,
21177 float *berr,
21178 float *work,
21179 ptrdiff_t *info
21180);
21181
21182/* Source: spttrf.f */
21183#define spttrf FORTRAN_WRAPPER(spttrf)
21184extern void spttrf(
21185 const ptrdiff_t *n,
21186 float *d,
21187 float *e,
21188 ptrdiff_t *info
21189);
21190
21191/* Source: spttrs.f */
21192#define spttrs FORTRAN_WRAPPER(spttrs)
21193extern void spttrs(
21194 const ptrdiff_t *n,
21195 const ptrdiff_t *nrhs,
21196 const float *d,
21197 const float *e,
21198 float *b,
21199 const ptrdiff_t *ldb,
21200 ptrdiff_t *info
21201);
21202
21203/* Source: sptts2.f */
21204#define sptts2 FORTRAN_WRAPPER(sptts2)
21205extern void sptts2(
21206 const ptrdiff_t *n,
21207 const ptrdiff_t *nrhs,
21208 const float *d,
21209 const float *e,
21210 float *b,
21211 const ptrdiff_t *ldb
21212);
21213
21214/* Source: srscl.f */
21215#define srscl FORTRAN_WRAPPER(srscl)
21216extern void srscl(
21217 const ptrdiff_t *n,
21218 const float *sa,
21219 float *sx,
21220 const ptrdiff_t *incx
21221);
21222
21223/* Source: ssb2st_kernels.f */
21224#define ssb2st_kernels FORTRAN_WRAPPER(ssb2st_kernels)
21225extern void ssb2st_kernels(
21226 char *uplo,
21227 ptrdiff_t *wantz,
21228 ptrdiff_t *ttype,
21229 ptrdiff_t *st,
21230 ptrdiff_t *ed,
21231 ptrdiff_t *sweep,
21232 ptrdiff_t *n,
21233 ptrdiff_t *nb,
21234 ptrdiff_t *ib,
21235 float *a,
21236 ptrdiff_t *lda,
21237 float *v,
21238 float *tau,
21239 ptrdiff_t *ldvt,
21240 float *work
21241);
21242
21243/* Source: ssbev.f */
21244#define ssbev FORTRAN_WRAPPER(ssbev)
21245extern void ssbev(
21246 const char *jobz,
21247 const char *uplo,
21248 const ptrdiff_t *n,
21249 const ptrdiff_t *kd,
21250 float *ab,
21251 const ptrdiff_t *ldab,
21252 float *w,
21253 float *z,
21254 const ptrdiff_t *ldz,
21255 float *work,
21256 ptrdiff_t *info
21257);
21258
21259/* Source: ssbev_2stage.f */
21260#define ssbev_2stage FORTRAN_WRAPPER(ssbev_2stage)
21261extern void ssbev_2stage(
21262 char *jobz,
21263 char *uplo,
21264 ptrdiff_t *n,
21265 ptrdiff_t *kd,
21266 float *ab,
21267 ptrdiff_t *ldab,
21268 float *w,
21269 float *z,
21270 ptrdiff_t *ldz,
21271 float *work,
21272 ptrdiff_t *lwork,
21273 ptrdiff_t *info
21274);
21275
21276/* Source: ssbevd.f */
21277#define ssbevd FORTRAN_WRAPPER(ssbevd)
21278extern void ssbevd(
21279 const char *jobz,
21280 const char *uplo,
21281 const ptrdiff_t *n,
21282 const ptrdiff_t *kd,
21283 float *ab,
21284 const ptrdiff_t *ldab,
21285 float *w,
21286 float *z,
21287 const ptrdiff_t *ldz,
21288 float *work,
21289 const ptrdiff_t *lwork,
21290 ptrdiff_t *iwork,
21291 const ptrdiff_t *liwork,
21292 ptrdiff_t *info
21293);
21294
21295/* Source: ssbevd_2stage.f */
21296#define ssbevd_2stage FORTRAN_WRAPPER(ssbevd_2stage)
21297extern void ssbevd_2stage(
21298 char *jobz,
21299 char *uplo,
21300 ptrdiff_t *n,
21301 ptrdiff_t *kd,
21302 float *ab,
21303 ptrdiff_t *ldab,
21304 float *w,
21305 float *z,
21306 ptrdiff_t *ldz,
21307 float *work,
21308 ptrdiff_t *lwork,
21309 ptrdiff_t *iwork,
21310 ptrdiff_t *liwork,
21311 ptrdiff_t *info
21312);
21313
21314/* Source: ssbevx.f */
21315#define ssbevx FORTRAN_WRAPPER(ssbevx)
21316extern void ssbevx(
21317 const char *jobz,
21318 const char *range,
21319 const char *uplo,
21320 const ptrdiff_t *n,
21321 const ptrdiff_t *kd,
21322 float *ab,
21323 const ptrdiff_t *ldab,
21324 float *q,
21325 const ptrdiff_t *ldq,
21326 const float *vl,
21327 const float *vu,
21328 const ptrdiff_t *il,
21329 const ptrdiff_t *iu,
21330 const float *abstol,
21331 ptrdiff_t *m,
21332 float *w,
21333 float *z,
21334 const ptrdiff_t *ldz,
21335 float *work,
21336 ptrdiff_t *iwork,
21337 ptrdiff_t *ifail,
21338 ptrdiff_t *info
21339);
21340
21341/* Source: ssbevx_2stage.f */
21342#define ssbevx_2stage FORTRAN_WRAPPER(ssbevx_2stage)
21343extern void ssbevx_2stage(
21344 char *jobz,
21345 char *range,
21346 char *uplo,
21347 ptrdiff_t *n,
21348 ptrdiff_t *kd,
21349 float *ab,
21350 ptrdiff_t *ldab,
21351 float *q,
21352 ptrdiff_t *ldq,
21353 float *vl,
21354 float *vu,
21355 ptrdiff_t *il,
21356 ptrdiff_t *iu,
21357 float *abstol,
21358 ptrdiff_t *m,
21359 float *w,
21360 float *z,
21361 ptrdiff_t *ldz,
21362 float *work,
21363 ptrdiff_t *lwork,
21364 ptrdiff_t *iwork,
21365 ptrdiff_t *ifail,
21366 ptrdiff_t *info
21367);
21368
21369/* Source: ssbgst.f */
21370#define ssbgst FORTRAN_WRAPPER(ssbgst)
21371extern void ssbgst(
21372 const char *vect,
21373 const char *uplo,
21374 const ptrdiff_t *n,
21375 const ptrdiff_t *ka,
21376 const ptrdiff_t *kb,
21377 float *ab,
21378 const ptrdiff_t *ldab,
21379 const float *bb,
21380 const ptrdiff_t *ldbb,
21381 float *x,
21382 const ptrdiff_t *ldx,
21383 float *work,
21384 ptrdiff_t *info
21385);
21386
21387/* Source: ssbgv.f */
21388#define ssbgv FORTRAN_WRAPPER(ssbgv)
21389extern void ssbgv(
21390 const char *jobz,
21391 const char *uplo,
21392 const ptrdiff_t *n,
21393 const ptrdiff_t *ka,
21394 const ptrdiff_t *kb,
21395 float *ab,
21396 const ptrdiff_t *ldab,
21397 float *bb,
21398 const ptrdiff_t *ldbb,
21399 float *w,
21400 float *z,
21401 const ptrdiff_t *ldz,
21402 float *work,
21403 ptrdiff_t *info
21404);
21405
21406/* Source: ssbgvd.f */
21407#define ssbgvd FORTRAN_WRAPPER(ssbgvd)
21408extern void ssbgvd(
21409 const char *jobz,
21410 const char *uplo,
21411 const ptrdiff_t *n,
21412 const ptrdiff_t *ka,
21413 const ptrdiff_t *kb,
21414 float *ab,
21415 const ptrdiff_t *ldab,
21416 float *bb,
21417 const ptrdiff_t *ldbb,
21418 float *w,
21419 float *z,
21420 const ptrdiff_t *ldz,
21421 float *work,
21422 const ptrdiff_t *lwork,
21423 ptrdiff_t *iwork,
21424 const ptrdiff_t *liwork,
21425 ptrdiff_t *info
21426);
21427
21428/* Source: ssbgvx.f */
21429#define ssbgvx FORTRAN_WRAPPER(ssbgvx)
21430extern void ssbgvx(
21431 const char *jobz,
21432 const char *range,
21433 const char *uplo,
21434 const ptrdiff_t *n,
21435 const ptrdiff_t *ka,
21436 const ptrdiff_t *kb,
21437 float *ab,
21438 const ptrdiff_t *ldab,
21439 float *bb,
21440 const ptrdiff_t *ldbb,
21441 float *q,
21442 const ptrdiff_t *ldq,
21443 const float *vl,
21444 const float *vu,
21445 const ptrdiff_t *il,
21446 const ptrdiff_t *iu,
21447 const float *abstol,
21448 ptrdiff_t *m,
21449 float *w,
21450 float *z,
21451 const ptrdiff_t *ldz,
21452 float *work,
21453 ptrdiff_t *iwork,
21454 ptrdiff_t *ifail,
21455 ptrdiff_t *info
21456);
21457
21458/* Source: ssbtrd.f */
21459#define ssbtrd FORTRAN_WRAPPER(ssbtrd)
21460extern void ssbtrd(
21461 const char *vect,
21462 const char *uplo,
21463 const ptrdiff_t *n,
21464 const ptrdiff_t *kd,
21465 float *ab,
21466 const ptrdiff_t *ldab,
21467 float *d,
21468 float *e,
21469 float *q,
21470 const ptrdiff_t *ldq,
21471 float *work,
21472 ptrdiff_t *info
21473);
21474
21475/* Source: ssfrk.f */
21476#define ssfrk FORTRAN_WRAPPER(ssfrk)
21477extern void ssfrk(
21478 const char *transr,
21479 const char *uplo,
21480 const char *trans,
21481 const ptrdiff_t *n,
21482 const ptrdiff_t *k,
21483 const float *alpha,
21484 const float *a,
21485 const ptrdiff_t *lda,
21486 const float *beta,
21487 float *c
21488);
21489
21490/* Source: sspcon.f */
21491#define sspcon FORTRAN_WRAPPER(sspcon)
21492extern void sspcon(
21493 const char *uplo,
21494 const ptrdiff_t *n,
21495 const float *ap,
21496 const ptrdiff_t *ipiv,
21497 const float *anorm,
21498 float *rcond,
21499 float *work,
21500 ptrdiff_t *iwork,
21501 ptrdiff_t *info
21502);
21503
21504/* Source: sspev.f */
21505#define sspev FORTRAN_WRAPPER(sspev)
21506extern void sspev(
21507 const char *jobz,
21508 const char *uplo,
21509 const ptrdiff_t *n,
21510 float *ap,
21511 float *w,
21512 float *z,
21513 const ptrdiff_t *ldz,
21514 float *work,
21515 ptrdiff_t *info
21516);
21517
21518/* Source: sspevd.f */
21519#define sspevd FORTRAN_WRAPPER(sspevd)
21520extern void sspevd(
21521 const char *jobz,
21522 const char *uplo,
21523 const ptrdiff_t *n,
21524 float *ap,
21525 float *w,
21526 float *z,
21527 const ptrdiff_t *ldz,
21528 float *work,
21529 const ptrdiff_t *lwork,
21530 ptrdiff_t *iwork,
21531 const ptrdiff_t *liwork,
21532 ptrdiff_t *info
21533);
21534
21535/* Source: sspevx.f */
21536#define sspevx FORTRAN_WRAPPER(sspevx)
21537extern void sspevx(
21538 const char *jobz,
21539 const char *range,
21540 const char *uplo,
21541 const ptrdiff_t *n,
21542 float *ap,
21543 const float *vl,
21544 const float *vu,
21545 const ptrdiff_t *il,
21546 const ptrdiff_t *iu,
21547 const float *abstol,
21548 ptrdiff_t *m,
21549 float *w,
21550 float *z,
21551 const ptrdiff_t *ldz,
21552 float *work,
21553 ptrdiff_t *iwork,
21554 ptrdiff_t *ifail,
21555 ptrdiff_t *info
21556);
21557
21558/* Source: sspgst.f */
21559#define sspgst FORTRAN_WRAPPER(sspgst)
21560extern void sspgst(
21561 const ptrdiff_t *itype,
21562 const char *uplo,
21563 const ptrdiff_t *n,
21564 float *ap,
21565 const float *bp,
21566 ptrdiff_t *info
21567);
21568
21569/* Source: sspgv.f */
21570#define sspgv FORTRAN_WRAPPER(sspgv)
21571extern void sspgv(
21572 const ptrdiff_t *itype,
21573 const char *jobz,
21574 const char *uplo,
21575 const ptrdiff_t *n,
21576 float *ap,
21577 float *bp,
21578 float *w,
21579 float *z,
21580 const ptrdiff_t *ldz,
21581 float *work,
21582 ptrdiff_t *info
21583);
21584
21585/* Source: sspgvd.f */
21586#define sspgvd FORTRAN_WRAPPER(sspgvd)
21587extern void sspgvd(
21588 const ptrdiff_t *itype,
21589 const char *jobz,
21590 const char *uplo,
21591 const ptrdiff_t *n,
21592 float *ap,
21593 float *bp,
21594 float *w,
21595 float *z,
21596 const ptrdiff_t *ldz,
21597 float *work,
21598 const ptrdiff_t *lwork,
21599 ptrdiff_t *iwork,
21600 const ptrdiff_t *liwork,
21601 ptrdiff_t *info
21602);
21603
21604/* Source: sspgvx.f */
21605#define sspgvx FORTRAN_WRAPPER(sspgvx)
21606extern void sspgvx(
21607 const ptrdiff_t *itype,
21608 const char *jobz,
21609 const char *range,
21610 const char *uplo,
21611 const ptrdiff_t *n,
21612 float *ap,
21613 float *bp,
21614 const float *vl,
21615 const float *vu,
21616 const ptrdiff_t *il,
21617 const ptrdiff_t *iu,
21618 const float *abstol,
21619 ptrdiff_t *m,
21620 float *w,
21621 float *z,
21622 const ptrdiff_t *ldz,
21623 float *work,
21624 ptrdiff_t *iwork,
21625 ptrdiff_t *ifail,
21626 ptrdiff_t *info
21627);
21628
21629/* Source: ssprfs.f */
21630#define ssprfs FORTRAN_WRAPPER(ssprfs)
21631extern void ssprfs(
21632 const char *uplo,
21633 const ptrdiff_t *n,
21634 const ptrdiff_t *nrhs,
21635 const float *ap,
21636 const float *afp,
21637 const ptrdiff_t *ipiv,
21638 const float *b,
21639 const ptrdiff_t *ldb,
21640 float *x,
21641 const ptrdiff_t *ldx,
21642 float *ferr,
21643 float *berr,
21644 float *work,
21645 ptrdiff_t *iwork,
21646 ptrdiff_t *info
21647);
21648
21649/* Source: sspsv.f */
21650#define sspsv FORTRAN_WRAPPER(sspsv)
21651extern void sspsv(
21652 const char *uplo,
21653 const ptrdiff_t *n,
21654 const ptrdiff_t *nrhs,
21655 float *ap,
21656 ptrdiff_t *ipiv,
21657 float *b,
21658 const ptrdiff_t *ldb,
21659 ptrdiff_t *info
21660);
21661
21662/* Source: sspsvx.f */
21663#define sspsvx FORTRAN_WRAPPER(sspsvx)
21664extern void sspsvx(
21665 const char *fact,
21666 const char *uplo,
21667 const ptrdiff_t *n,
21668 const ptrdiff_t *nrhs,
21669 const float *ap,
21670 float *afp,
21671 ptrdiff_t *ipiv,
21672 const float *b,
21673 const ptrdiff_t *ldb,
21674 float *x,
21675 const ptrdiff_t *ldx,
21676 float *rcond,
21677 float *ferr,
21678 float *berr,
21679 float *work,
21680 ptrdiff_t *iwork,
21681 ptrdiff_t *info
21682);
21683
21684/* Source: ssptrd.f */
21685#define ssptrd FORTRAN_WRAPPER(ssptrd)
21686extern void ssptrd(
21687 const char *uplo,
21688 const ptrdiff_t *n,
21689 float *ap,
21690 float *d,
21691 float *e,
21692 float *tau,
21693 ptrdiff_t *info
21694);
21695
21696/* Source: ssptrf.f */
21697#define ssptrf FORTRAN_WRAPPER(ssptrf)
21698extern void ssptrf(
21699 const char *uplo,
21700 const ptrdiff_t *n,
21701 float *ap,
21702 ptrdiff_t *ipiv,
21703 ptrdiff_t *info
21704);
21705
21706/* Source: ssptri.f */
21707#define ssptri FORTRAN_WRAPPER(ssptri)
21708extern void ssptri(
21709 const char *uplo,
21710 const ptrdiff_t *n,
21711 float *ap,
21712 const ptrdiff_t *ipiv,
21713 float *work,
21714 ptrdiff_t *info
21715);
21716
21717/* Source: ssptrs.f */
21718#define ssptrs FORTRAN_WRAPPER(ssptrs)
21719extern void ssptrs(
21720 const char *uplo,
21721 const ptrdiff_t *n,
21722 const ptrdiff_t *nrhs,
21723 const float *ap,
21724 const ptrdiff_t *ipiv,
21725 float *b,
21726 const ptrdiff_t *ldb,
21727 ptrdiff_t *info
21728);
21729
21730/* Source: sstebz.f */
21731#define sstebz FORTRAN_WRAPPER(sstebz)
21732extern void sstebz(
21733 const char *range,
21734 const char *order,
21735 const ptrdiff_t *n,
21736 const float *vl,
21737 const float *vu,
21738 const ptrdiff_t *il,
21739 const ptrdiff_t *iu,
21740 const float *abstol,
21741 const float *d,
21742 const float *e,
21743 ptrdiff_t *m,
21744 ptrdiff_t *nsplit,
21745 float *w,
21746 ptrdiff_t *iblock,
21747 ptrdiff_t *isplit,
21748 float *work,
21749 ptrdiff_t *iwork,
21750 ptrdiff_t *info
21751);
21752
21753/* Source: sstedc.f */
21754#define sstedc FORTRAN_WRAPPER(sstedc)
21755extern void sstedc(
21756 const char *compz,
21757 const ptrdiff_t *n,
21758 float *d,
21759 float *e,
21760 float *z,
21761 const ptrdiff_t *ldz,
21762 float *work,
21763 const ptrdiff_t *lwork,
21764 ptrdiff_t *iwork,
21765 const ptrdiff_t *liwork,
21766 ptrdiff_t *info
21767);
21768
21769/* Source: sstegr.f */
21770#define sstegr FORTRAN_WRAPPER(sstegr)
21771extern void sstegr(
21772 const char *jobz,
21773 const char *range,
21774 const ptrdiff_t *n,
21775 float *d,
21776 float *e,
21777 const float *vl,
21778 const float *vu,
21779 const ptrdiff_t *il,
21780 const ptrdiff_t *iu,
21781 const float *abstol,
21782 ptrdiff_t *m,
21783 float *w,
21784 float *z,
21785 const ptrdiff_t *ldz,
21786 ptrdiff_t *isuppz,
21787 float *work,
21788 const ptrdiff_t *lwork,
21789 ptrdiff_t *iwork,
21790 const ptrdiff_t *liwork,
21791 ptrdiff_t *info
21792);
21793
21794/* Source: sstein.f */
21795#define sstein FORTRAN_WRAPPER(sstein)
21796extern void sstein(
21797 const ptrdiff_t *n,
21798 const float *d,
21799 const float *e,
21800 const ptrdiff_t *m,
21801 const float *w,
21802 const ptrdiff_t *iblock,
21803 const ptrdiff_t *isplit,
21804 float *z,
21805 const ptrdiff_t *ldz,
21806 float *work,
21807 ptrdiff_t *iwork,
21808 ptrdiff_t *ifail,
21809 ptrdiff_t *info
21810);
21811
21812/* Source: sstemr.f */
21813#define sstemr FORTRAN_WRAPPER(sstemr)
21814extern void sstemr(
21815 const char *jobz,
21816 const char *range,
21817 const ptrdiff_t *n,
21818 float *d,
21819 float *e,
21820 const float *vl,
21821 const float *vu,
21822 const ptrdiff_t *il,
21823 const ptrdiff_t *iu,
21824 ptrdiff_t *m,
21825 float *w,
21826 float *z,
21827 const ptrdiff_t *ldz,
21828 const ptrdiff_t *nzc,
21829 ptrdiff_t *isuppz,
21830 ptrdiff_t *tryrac,
21831 float *work,
21832 const ptrdiff_t *lwork,
21833 ptrdiff_t *iwork,
21834 const ptrdiff_t *liwork,
21835 ptrdiff_t *info
21836);
21837
21838/* Source: ssteqr.f */
21839#define ssteqr FORTRAN_WRAPPER(ssteqr)
21840extern void ssteqr(
21841 const char *compz,
21842 const ptrdiff_t *n,
21843 float *d,
21844 float *e,
21845 float *z,
21846 const ptrdiff_t *ldz,
21847 float *work,
21848 ptrdiff_t *info
21849);
21850
21851/* Source: ssterf.f */
21852#define ssterf FORTRAN_WRAPPER(ssterf)
21853extern void ssterf(
21854 const ptrdiff_t *n,
21855 float *d,
21856 float *e,
21857 ptrdiff_t *info
21858);
21859
21860/* Source: sstev.f */
21861#define sstev FORTRAN_WRAPPER(sstev)
21862extern void sstev(
21863 const char *jobz,
21864 const ptrdiff_t *n,
21865 float *d,
21866 float *e,
21867 float *z,
21868 const ptrdiff_t *ldz,
21869 float *work,
21870 ptrdiff_t *info
21871);
21872
21873/* Source: sstevd.f */
21874#define sstevd FORTRAN_WRAPPER(sstevd)
21875extern void sstevd(
21876 const char *jobz,
21877 const ptrdiff_t *n,
21878 float *d,
21879 float *e,
21880 float *z,
21881 const ptrdiff_t *ldz,
21882 float *work,
21883 const ptrdiff_t *lwork,
21884 ptrdiff_t *iwork,
21885 const ptrdiff_t *liwork,
21886 ptrdiff_t *info
21887);
21888
21889/* Source: sstevr.f */
21890#define sstevr FORTRAN_WRAPPER(sstevr)
21891extern void sstevr(
21892 const char *jobz,
21893 const char *range,
21894 const ptrdiff_t *n,
21895 float *d,
21896 float *e,
21897 const float *vl,
21898 const float *vu,
21899 const ptrdiff_t *il,
21900 const ptrdiff_t *iu,
21901 const float *abstol,
21902 ptrdiff_t *m,
21903 float *w,
21904 float *z,
21905 const ptrdiff_t *ldz,
21906 ptrdiff_t *isuppz,
21907 float *work,
21908 const ptrdiff_t *lwork,
21909 ptrdiff_t *iwork,
21910 const ptrdiff_t *liwork,
21911 ptrdiff_t *info
21912);
21913
21914/* Source: sstevx.f */
21915#define sstevx FORTRAN_WRAPPER(sstevx)
21916extern void sstevx(
21917 const char *jobz,
21918 const char *range,
21919 const ptrdiff_t *n,
21920 float *d,
21921 float *e,
21922 const float *vl,
21923 const float *vu,
21924 const ptrdiff_t *il,
21925 const ptrdiff_t *iu,
21926 const float *abstol,
21927 ptrdiff_t *m,
21928 float *w,
21929 float *z,
21930 const ptrdiff_t *ldz,
21931 float *work,
21932 ptrdiff_t *iwork,
21933 ptrdiff_t *ifail,
21934 ptrdiff_t *info
21935);
21936
21937/* Source: ssycon.f */
21938#define ssycon FORTRAN_WRAPPER(ssycon)
21939extern void ssycon(
21940 const char *uplo,
21941 const ptrdiff_t *n,
21942 const float *a,
21943 const ptrdiff_t *lda,
21944 const ptrdiff_t *ipiv,
21945 const float *anorm,
21946 float *rcond,
21947 float *work,
21948 ptrdiff_t *iwork,
21949 ptrdiff_t *info
21950);
21951
21952/* Source: ssycon_3.f */
21953#define ssycon_3 FORTRAN_WRAPPER(ssycon_3)
21954extern void ssycon_3(
21955 char *uplo,
21956 ptrdiff_t *n,
21957 float *a,
21958 ptrdiff_t *lda,
21959 float *e,
21960 ptrdiff_t *ipiv,
21961 float *anorm,
21962 float *rcond,
21963 float *work,
21964 ptrdiff_t *iwork,
21965 ptrdiff_t *info
21966);
21967
21968/* Source: ssycon_rook.f */
21969#define ssycon_rook FORTRAN_WRAPPER(ssycon_rook)
21970extern void ssycon_rook(
21971 const char *uplo,
21972 const ptrdiff_t *n,
21973 const float *a,
21974 const ptrdiff_t *lda,
21975 const ptrdiff_t *ipiv,
21976 const float *anorm,
21977 float *rcond,
21978 float *work,
21979 ptrdiff_t *iwork,
21980 ptrdiff_t *info
21981);
21982
21983/* Source: ssyconv.f */
21984#define ssyconv FORTRAN_WRAPPER(ssyconv)
21985extern void ssyconv(
21986 const char *uplo,
21987 const char *way,
21988 const ptrdiff_t *n,
21989 float *a,
21990 const ptrdiff_t *lda,
21991 const ptrdiff_t *ipiv,
21992 float *e,
21993 ptrdiff_t *info
21994);
21995
21996/* Source: ssyconvf.f */
21997#define ssyconvf FORTRAN_WRAPPER(ssyconvf)
21998extern void ssyconvf(
21999 char *uplo,
22000 char *way,
22001 ptrdiff_t *n,
22002 float *a,
22003 ptrdiff_t *lda,
22004 float *e,
22005 ptrdiff_t *ipiv,
22006 ptrdiff_t *info
22007);
22008
22009/* Source: ssyconvf_rook.f */
22010#define ssyconvf_rook FORTRAN_WRAPPER(ssyconvf_rook)
22011extern void ssyconvf_rook(
22012 char *uplo,
22013 char *way,
22014 ptrdiff_t *n,
22015 float *a,
22016 ptrdiff_t *lda,
22017 float *e,
22018 ptrdiff_t *ipiv,
22019 ptrdiff_t *info
22020);
22021
22022/* Source: ssyequb.f */
22023#define ssyequb FORTRAN_WRAPPER(ssyequb)
22024extern void ssyequb(
22025 char *uplo,
22026 const ptrdiff_t *n,
22027 const float *a,
22028 const ptrdiff_t *lda,
22029 float *s,
22030 float *scond,
22031 float *amax,
22032 float *work,
22033 ptrdiff_t *info
22034);
22035
22036/* Source: ssyev.f */
22037#define ssyev FORTRAN_WRAPPER(ssyev)
22038extern void ssyev(
22039 const char *jobz,
22040 const char *uplo,
22041 const ptrdiff_t *n,
22042 float *a,
22043 const ptrdiff_t *lda,
22044 float *w,
22045 float *work,
22046 const ptrdiff_t *lwork,
22047 ptrdiff_t *info
22048);
22049
22050/* Source: ssyev_2stage.f */
22051#define ssyev_2stage FORTRAN_WRAPPER(ssyev_2stage)
22052extern void ssyev_2stage(
22053 char *jobz,
22054 char *uplo,
22055 ptrdiff_t *n,
22056 float *a,
22057 ptrdiff_t *lda,
22058 float *w,
22059 float *work,
22060 ptrdiff_t *lwork,
22061 ptrdiff_t *info
22062);
22063
22064/* Source: ssyevd.f */
22065#define ssyevd FORTRAN_WRAPPER(ssyevd)
22066extern void ssyevd(
22067 const char *jobz,
22068 const char *uplo,
22069 const ptrdiff_t *n,
22070 float *a,
22071 const ptrdiff_t *lda,
22072 float *w,
22073 float *work,
22074 const ptrdiff_t *lwork,
22075 ptrdiff_t *iwork,
22076 const ptrdiff_t *liwork,
22077 ptrdiff_t *info
22078);
22079
22080/* Source: ssyevd_2stage.f */
22081#define ssyevd_2stage FORTRAN_WRAPPER(ssyevd_2stage)
22082extern void ssyevd_2stage(
22083 char *jobz,
22084 char *uplo,
22085 ptrdiff_t *n,
22086 float *a,
22087 ptrdiff_t *lda,
22088 float *w,
22089 float *work,
22090 ptrdiff_t *lwork,
22091 ptrdiff_t *iwork,
22092 ptrdiff_t *liwork,
22093 ptrdiff_t *info
22094);
22095
22096/* Source: ssyevr.f */
22097#define ssyevr FORTRAN_WRAPPER(ssyevr)
22098extern void ssyevr(
22099 const char *jobz,
22100 const char *range,
22101 const char *uplo,
22102 const ptrdiff_t *n,
22103 float *a,
22104 const ptrdiff_t *lda,
22105 const float *vl,
22106 const float *vu,
22107 const ptrdiff_t *il,
22108 const ptrdiff_t *iu,
22109 const float *abstol,
22110 ptrdiff_t *m,
22111 float *w,
22112 float *z,
22113 const ptrdiff_t *ldz,
22114 ptrdiff_t *isuppz,
22115 float *work,
22116 const ptrdiff_t *lwork,
22117 ptrdiff_t *iwork,
22118 const ptrdiff_t *liwork,
22119 ptrdiff_t *info
22120);
22121
22122/* Source: ssyevr_2stage.f */
22123#define ssyevr_2stage FORTRAN_WRAPPER(ssyevr_2stage)
22124extern void ssyevr_2stage(
22125 char *jobz,
22126 char *range,
22127 char *uplo,
22128 ptrdiff_t *n,
22129 float *a,
22130 ptrdiff_t *lda,
22131 float *vl,
22132 float *vu,
22133 ptrdiff_t *il,
22134 ptrdiff_t *iu,
22135 float *abstol,
22136 ptrdiff_t *m,
22137 float *w,
22138 float *z,
22139 ptrdiff_t *ldz,
22140 ptrdiff_t *isuppz,
22141 float *work,
22142 ptrdiff_t *lwork,
22143 ptrdiff_t *iwork,
22144 ptrdiff_t *liwork,
22145 ptrdiff_t *info
22146);
22147
22148/* Source: ssyevx.f */
22149#define ssyevx FORTRAN_WRAPPER(ssyevx)
22150extern void ssyevx(
22151 const char *jobz,
22152 const char *range,
22153 const char *uplo,
22154 const ptrdiff_t *n,
22155 float *a,
22156 const ptrdiff_t *lda,
22157 const float *vl,
22158 const float *vu,
22159 const ptrdiff_t *il,
22160 const ptrdiff_t *iu,
22161 const float *abstol,
22162 ptrdiff_t *m,
22163 float *w,
22164 float *z,
22165 const ptrdiff_t *ldz,
22166 float *work,
22167 const ptrdiff_t *lwork,
22168 ptrdiff_t *iwork,
22169 ptrdiff_t *ifail,
22170 ptrdiff_t *info
22171);
22172
22173/* Source: ssyevx_2stage.f */
22174#define ssyevx_2stage FORTRAN_WRAPPER(ssyevx_2stage)
22175extern void ssyevx_2stage(
22176 char *jobz,
22177 char *range,
22178 char *uplo,
22179 ptrdiff_t *n,
22180 float *a,
22181 ptrdiff_t *lda,
22182 float *vl,
22183 float *vu,
22184 ptrdiff_t *il,
22185 ptrdiff_t *iu,
22186 float *abstol,
22187 ptrdiff_t *m,
22188 float *w,
22189 float *z,
22190 ptrdiff_t *ldz,
22191 float *work,
22192 ptrdiff_t *lwork,
22193 ptrdiff_t *iwork,
22194 ptrdiff_t *ifail,
22195 ptrdiff_t *info
22196);
22197
22198/* Source: ssygs2.f */
22199#define ssygs2 FORTRAN_WRAPPER(ssygs2)
22200extern void ssygs2(
22201 const ptrdiff_t *itype,
22202 const char *uplo,
22203 const ptrdiff_t *n,
22204 float *a,
22205 const ptrdiff_t *lda,
22206 const float *b,
22207 const ptrdiff_t *ldb,
22208 ptrdiff_t *info
22209);
22210
22211/* Source: ssygst.f */
22212#define ssygst FORTRAN_WRAPPER(ssygst)
22213extern void ssygst(
22214 const ptrdiff_t *itype,
22215 const char *uplo,
22216 const ptrdiff_t *n,
22217 float *a,
22218 const ptrdiff_t *lda,
22219 const float *b,
22220 const ptrdiff_t *ldb,
22221 ptrdiff_t *info
22222);
22223
22224/* Source: ssygv.f */
22225#define ssygv FORTRAN_WRAPPER(ssygv)
22226extern void ssygv(
22227 const ptrdiff_t *itype,
22228 const char *jobz,
22229 const char *uplo,
22230 const ptrdiff_t *n,
22231 float *a,
22232 const ptrdiff_t *lda,
22233 float *b,
22234 const ptrdiff_t *ldb,
22235 float *w,
22236 float *work,
22237 const ptrdiff_t *lwork,
22238 ptrdiff_t *info
22239);
22240
22241/* Source: ssygv_2stage.f */
22242#define ssygv_2stage FORTRAN_WRAPPER(ssygv_2stage)
22243extern void ssygv_2stage(
22244 ptrdiff_t *itype,
22245 char *jobz,
22246 char *uplo,
22247 ptrdiff_t *n,
22248 float *a,
22249 ptrdiff_t *lda,
22250 float *b,
22251 ptrdiff_t *ldb,
22252 float *w,
22253 float *work,
22254 ptrdiff_t *lwork,
22255 ptrdiff_t *info
22256);
22257
22258/* Source: ssygvd.f */
22259#define ssygvd FORTRAN_WRAPPER(ssygvd)
22260extern void ssygvd(
22261 const ptrdiff_t *itype,
22262 const char *jobz,
22263 const char *uplo,
22264 const ptrdiff_t *n,
22265 float *a,
22266 const ptrdiff_t *lda,
22267 float *b,
22268 const ptrdiff_t *ldb,
22269 float *w,
22270 float *work,
22271 const ptrdiff_t *lwork,
22272 ptrdiff_t *iwork,
22273 const ptrdiff_t *liwork,
22274 ptrdiff_t *info
22275);
22276
22277/* Source: ssygvx.f */
22278#define ssygvx FORTRAN_WRAPPER(ssygvx)
22279extern void ssygvx(
22280 const ptrdiff_t *itype,
22281 const char *jobz,
22282 const char *range,
22283 const char *uplo,
22284 const ptrdiff_t *n,
22285 float *a,
22286 const ptrdiff_t *lda,
22287 float *b,
22288 const ptrdiff_t *ldb,
22289 const float *vl,
22290 const float *vu,
22291 const ptrdiff_t *il,
22292 const ptrdiff_t *iu,
22293 const float *abstol,
22294 ptrdiff_t *m,
22295 float *w,
22296 float *z,
22297 const ptrdiff_t *ldz,
22298 float *work,
22299 const ptrdiff_t *lwork,
22300 ptrdiff_t *iwork,
22301 ptrdiff_t *ifail,
22302 ptrdiff_t *info
22303);
22304
22305/* Source: ssyrfs.f */
22306#define ssyrfs FORTRAN_WRAPPER(ssyrfs)
22307extern void ssyrfs(
22308 const char *uplo,
22309 const ptrdiff_t *n,
22310 const ptrdiff_t *nrhs,
22311 const float *a,
22312 const ptrdiff_t *lda,
22313 const float *af,
22314 const ptrdiff_t *ldaf,
22315 const ptrdiff_t *ipiv,
22316 const float *b,
22317 const ptrdiff_t *ldb,
22318 float *x,
22319 const ptrdiff_t *ldx,
22320 float *ferr,
22321 float *berr,
22322 float *work,
22323 ptrdiff_t *iwork,
22324 ptrdiff_t *info
22325);
22326
22327/* Source: ssysv.f */
22328#define ssysv FORTRAN_WRAPPER(ssysv)
22329extern void ssysv(
22330 const char *uplo,
22331 const ptrdiff_t *n,
22332 const ptrdiff_t *nrhs,
22333 float *a,
22334 const ptrdiff_t *lda,
22335 ptrdiff_t *ipiv,
22336 float *b,
22337 const ptrdiff_t *ldb,
22338 float *work,
22339 const ptrdiff_t *lwork,
22340 ptrdiff_t *info
22341);
22342
22343/* Source: ssysv_aa.f */
22344#define ssysv_aa FORTRAN_WRAPPER(ssysv_aa)
22345extern void ssysv_aa(
22346 const char *uplo,
22347 const ptrdiff_t *n,
22348 const ptrdiff_t *nrhs,
22349 float *a,
22350 const ptrdiff_t *lda,
22351 ptrdiff_t *ipiv,
22352 float *b,
22353 const ptrdiff_t *ldb,
22354 float *work,
22355 const ptrdiff_t *lwork,
22356 ptrdiff_t *info
22357);
22358
22359/* Source: ssysv_rk.f */
22360#define ssysv_rk FORTRAN_WRAPPER(ssysv_rk)
22361extern void ssysv_rk(
22362 char *uplo,
22363 ptrdiff_t *n,
22364 ptrdiff_t *nrhs,
22365 float *a,
22366 ptrdiff_t *lda,
22367 float *e,
22368 ptrdiff_t *ipiv,
22369 float *b,
22370 ptrdiff_t *ldb,
22371 float *work,
22372 ptrdiff_t *lwork,
22373 ptrdiff_t *info
22374);
22375
22376/* Source: ssysv_rook.f */
22377#define ssysv_rook FORTRAN_WRAPPER(ssysv_rook)
22378extern void ssysv_rook(
22379 const char *uplo,
22380 const ptrdiff_t *n,
22381 const ptrdiff_t *nrhs,
22382 float *a,
22383 const ptrdiff_t *lda,
22384 ptrdiff_t *ipiv,
22385 float *b,
22386 const ptrdiff_t *ldb,
22387 float *work,
22388 const ptrdiff_t *lwork,
22389 ptrdiff_t *info
22390);
22391
22392/* Source: ssysvx.f */
22393#define ssysvx FORTRAN_WRAPPER(ssysvx)
22394extern void ssysvx(
22395 const char *fact,
22396 const char *uplo,
22397 const ptrdiff_t *n,
22398 const ptrdiff_t *nrhs,
22399 const float *a,
22400 const ptrdiff_t *lda,
22401 float *af,
22402 const ptrdiff_t *ldaf,
22403 ptrdiff_t *ipiv,
22404 const float *b,
22405 const ptrdiff_t *ldb,
22406 float *x,
22407 const ptrdiff_t *ldx,
22408 float *rcond,
22409 float *ferr,
22410 float *berr,
22411 float *work,
22412 const ptrdiff_t *lwork,
22413 ptrdiff_t *iwork,
22414 ptrdiff_t *info
22415);
22416
22417/* Source: ssyswapr.f */
22418#define ssyswapr FORTRAN_WRAPPER(ssyswapr)
22419extern void ssyswapr(
22420 const char *uplo,
22421 const ptrdiff_t *n,
22422 float *a,
22423 const ptrdiff_t *lda,
22424 const ptrdiff_t *i1,
22425 const ptrdiff_t *i2
22426);
22427
22428/* Source: ssytd2.f */
22429#define ssytd2 FORTRAN_WRAPPER(ssytd2)
22430extern void ssytd2(
22431 const char *uplo,
22432 const ptrdiff_t *n,
22433 float *a,
22434 const ptrdiff_t *lda,
22435 float *d,
22436 float *e,
22437 float *tau,
22438 ptrdiff_t *info
22439);
22440
22441/* Source: ssytf2.f */
22442#define ssytf2 FORTRAN_WRAPPER(ssytf2)
22443extern void ssytf2(
22444 const char *uplo,
22445 const ptrdiff_t *n,
22446 float *a,
22447 const ptrdiff_t *lda,
22448 ptrdiff_t *ipiv,
22449 ptrdiff_t *info
22450);
22451
22452/* Source: ssytf2_rk.f */
22453#define ssytf2_rk FORTRAN_WRAPPER(ssytf2_rk)
22454extern void ssytf2_rk(
22455 char *uplo,
22456 ptrdiff_t *n,
22457 float *a,
22458 ptrdiff_t *lda,
22459 float *e,
22460 ptrdiff_t *ipiv,
22461 ptrdiff_t *info
22462);
22463
22464/* Source: ssytf2_rook.f */
22465#define ssytf2_rook FORTRAN_WRAPPER(ssytf2_rook)
22466extern void ssytf2_rook(
22467 const char *uplo,
22468 const ptrdiff_t *n,
22469 float *a,
22470 const ptrdiff_t *lda,
22471 ptrdiff_t *ipiv,
22472 ptrdiff_t *info
22473);
22474
22475/* Source: ssytrd.f */
22476#define ssytrd FORTRAN_WRAPPER(ssytrd)
22477extern void ssytrd(
22478 const char *uplo,
22479 const ptrdiff_t *n,
22480 float *a,
22481 const ptrdiff_t *lda,
22482 float *d,
22483 float *e,
22484 float *tau,
22485 float *work,
22486 const ptrdiff_t *lwork,
22487 ptrdiff_t *info
22488);
22489
22490/* Source: ssytrd_2stage.f */
22491#define ssytrd_2stage FORTRAN_WRAPPER(ssytrd_2stage)
22492extern void ssytrd_2stage(
22493 char *vect,
22494 char *uplo,
22495 ptrdiff_t *n,
22496 float *a,
22497 ptrdiff_t *lda,
22498 float *d,
22499 float *e,
22500 float *tau,
22501 float *hous2,
22502 ptrdiff_t *lhous2,
22503 float *work,
22504 ptrdiff_t *lwork,
22505 ptrdiff_t *info
22506);
22507
22508/* Source: ssytrd_sb2st.f */
22509#define ssytrd_sb2st FORTRAN_WRAPPER(ssytrd_sb2st)
22510extern void ssytrd_sb2st(
22511 char *stage1,
22512 char *vect,
22513 char *uplo,
22514 ptrdiff_t *n,
22515 ptrdiff_t *kd,
22516 float *ab,
22517 ptrdiff_t *ldab,
22518 float *d,
22519 float *e,
22520 float *hous,
22521 ptrdiff_t *lhous,
22522 float *work,
22523 ptrdiff_t *lwork,
22524 ptrdiff_t *info
22525);
22526
22527/* Source: ssytrd_sy2sb.f */
22528#define ssytrd_sy2sb FORTRAN_WRAPPER(ssytrd_sy2sb)
22529extern void ssytrd_sy2sb(
22530 char *uplo,
22531 ptrdiff_t *n,
22532 ptrdiff_t *kd,
22533 float *a,
22534 ptrdiff_t *lda,
22535 float *ab,
22536 ptrdiff_t *ldab,
22537 float *tau,
22538 float *work,
22539 ptrdiff_t *lwork,
22540 ptrdiff_t *info
22541);
22542
22543/* Source: ssytrf.f */
22544#define ssytrf FORTRAN_WRAPPER(ssytrf)
22545extern void ssytrf(
22546 const char *uplo,
22547 const ptrdiff_t *n,
22548 float *a,
22549 const ptrdiff_t *lda,
22550 ptrdiff_t *ipiv,
22551 float *work,
22552 const ptrdiff_t *lwork,
22553 ptrdiff_t *info
22554);
22555
22556/* Source: ssytrf_aa.f */
22557#define ssytrf_aa FORTRAN_WRAPPER(ssytrf_aa)
22558extern void ssytrf_aa(
22559 const char *uplo,
22560 const ptrdiff_t *n,
22561 float *a,
22562 const ptrdiff_t *lda,
22563 ptrdiff_t *ipiv,
22564 float *work,
22565 const ptrdiff_t *lwork,
22566 ptrdiff_t *info
22567);
22568
22569/* Source: ssytrf_rk.f */
22570#define ssytrf_rk FORTRAN_WRAPPER(ssytrf_rk)
22571extern void ssytrf_rk(
22572 char *uplo,
22573 ptrdiff_t *n,
22574 float *a,
22575 ptrdiff_t *lda,
22576 float *e,
22577 ptrdiff_t *ipiv,
22578 float *work,
22579 ptrdiff_t *lwork,
22580 ptrdiff_t *info
22581);
22582
22583/* Source: ssytrf_rook.f */
22584#define ssytrf_rook FORTRAN_WRAPPER(ssytrf_rook)
22585extern void ssytrf_rook(
22586 const char *uplo,
22587 const ptrdiff_t *n,
22588 float *a,
22589 const ptrdiff_t *lda,
22590 ptrdiff_t *ipiv,
22591 float *work,
22592 const ptrdiff_t *lwork,
22593 ptrdiff_t *info
22594);
22595
22596/* Source: ssytri.f */
22597#define ssytri FORTRAN_WRAPPER(ssytri)
22598extern void ssytri(
22599 const char *uplo,
22600 const ptrdiff_t *n,
22601 float *a,
22602 const ptrdiff_t *lda,
22603 const ptrdiff_t *ipiv,
22604 float *work,
22605 ptrdiff_t *info
22606);
22607
22608/* Source: ssytri2.f */
22609#define ssytri2 FORTRAN_WRAPPER(ssytri2)
22610extern void ssytri2(
22611 const char *uplo,
22612 const ptrdiff_t *n,
22613 float *a,
22614 const ptrdiff_t *lda,
22615 const ptrdiff_t *ipiv,
22616 float *work,
22617 const ptrdiff_t *lwork,
22618 ptrdiff_t *info
22619);
22620
22621/* Source: ssytri2x.f */
22622#define ssytri2x FORTRAN_WRAPPER(ssytri2x)
22623extern void ssytri2x(
22624 const char *uplo,
22625 const ptrdiff_t *n,
22626 float *a,
22627 const ptrdiff_t *lda,
22628 const ptrdiff_t *ipiv,
22629 float *work,
22630 ptrdiff_t *nb,
22631 ptrdiff_t *info
22632);
22633
22634/* Source: ssytri_3.f */
22635#define ssytri_3 FORTRAN_WRAPPER(ssytri_3)
22636extern void ssytri_3(
22637 char *uplo,
22638 ptrdiff_t *n,
22639 float *a,
22640 ptrdiff_t *lda,
22641 float *e,
22642 ptrdiff_t *ipiv,
22643 float *work,
22644 ptrdiff_t *lwork,
22645 ptrdiff_t *info
22646);
22647
22648/* Source: ssytri_3x.f */
22649#define ssytri_3x FORTRAN_WRAPPER(ssytri_3x)
22650extern void ssytri_3x(
22651 char *uplo,
22652 ptrdiff_t *n,
22653 float *a,
22654 ptrdiff_t *lda,
22655 float *e,
22656 ptrdiff_t *ipiv,
22657 float *work,
22658 ptrdiff_t *nb,
22659 ptrdiff_t *info
22660);
22661
22662/* Source: ssytri_rook.f */
22663#define ssytri_rook FORTRAN_WRAPPER(ssytri_rook)
22664extern void ssytri_rook(
22665 const char *uplo,
22666 const ptrdiff_t *n,
22667 float *a,
22668 const ptrdiff_t *lda,
22669 const ptrdiff_t *ipiv,
22670 float *work,
22671 ptrdiff_t *info
22672);
22673
22674/* Source: ssytrs.f */
22675#define ssytrs FORTRAN_WRAPPER(ssytrs)
22676extern void ssytrs(
22677 const char *uplo,
22678 const ptrdiff_t *n,
22679 const ptrdiff_t *nrhs,
22680 const float *a,
22681 const ptrdiff_t *lda,
22682 const ptrdiff_t *ipiv,
22683 float *b,
22684 const ptrdiff_t *ldb,
22685 ptrdiff_t *info
22686);
22687
22688/* Source: ssytrs2.f */
22689#define ssytrs2 FORTRAN_WRAPPER(ssytrs2)
22690extern void ssytrs2(
22691 const char *uplo,
22692 const ptrdiff_t *n,
22693 const ptrdiff_t *nrhs,
22694 const float *a,
22695 const ptrdiff_t *lda,
22696 const ptrdiff_t *ipiv,
22697 float *b,
22698 const ptrdiff_t *ldb,
22699 float *work,
22700 ptrdiff_t *info
22701);
22702
22703/* Source: ssytrs_3.f */
22704#define ssytrs_3 FORTRAN_WRAPPER(ssytrs_3)
22705extern void ssytrs_3(
22706 char *uplo,
22707 ptrdiff_t *n,
22708 ptrdiff_t *nrhs,
22709 float *a,
22710 ptrdiff_t *lda,
22711 float *e,
22712 ptrdiff_t *ipiv,
22713 float *b,
22714 ptrdiff_t *ldb,
22715 ptrdiff_t *info
22716);
22717
22718/* Source: ssytrs_aa.f */
22719#define ssytrs_aa FORTRAN_WRAPPER(ssytrs_aa)
22720extern void ssytrs_aa(
22721 const char *uplo,
22722 const ptrdiff_t *n,
22723 const ptrdiff_t *nrhs,
22724 const float *a,
22725 const ptrdiff_t *lda,
22726 const ptrdiff_t *ipiv,
22727 float *b,
22728 const ptrdiff_t *ldb,
22729 const float *work,
22730 const ptrdiff_t *lwork,
22731 ptrdiff_t *info
22732);
22733
22734/* Source: ssytrs_rook.f */
22735#define ssytrs_rook FORTRAN_WRAPPER(ssytrs_rook)
22736extern void ssytrs_rook(
22737 const char *uplo,
22738 const ptrdiff_t *n,
22739 const ptrdiff_t *nrhs,
22740 const float *a,
22741 const ptrdiff_t *lda,
22742 const ptrdiff_t *ipiv,
22743 float *b,
22744 const ptrdiff_t *ldb,
22745 ptrdiff_t *info
22746);
22747
22748/* Source: stbcon.f */
22749#define stbcon FORTRAN_WRAPPER(stbcon)
22750extern void stbcon(
22751 const char *norm,
22752 const char *uplo,
22753 const char *diag,
22754 const ptrdiff_t *n,
22755 const ptrdiff_t *kd,
22756 const float *ab,
22757 const ptrdiff_t *ldab,
22758 float *rcond,
22759 float *work,
22760 ptrdiff_t *iwork,
22761 ptrdiff_t *info
22762);
22763
22764/* Source: stbrfs.f */
22765#define stbrfs FORTRAN_WRAPPER(stbrfs)
22766extern void stbrfs(
22767 const char *uplo,
22768 const char *trans,
22769 const char *diag,
22770 const ptrdiff_t *n,
22771 const ptrdiff_t *kd,
22772 const ptrdiff_t *nrhs,
22773 const float *ab,
22774 const ptrdiff_t *ldab,
22775 const float *b,
22776 const ptrdiff_t *ldb,
22777 const float *x,
22778 const ptrdiff_t *ldx,
22779 float *ferr,
22780 float *berr,
22781 float *work,
22782 ptrdiff_t *iwork,
22783 ptrdiff_t *info
22784);
22785
22786/* Source: stbtrs.f */
22787#define stbtrs FORTRAN_WRAPPER(stbtrs)
22788extern void stbtrs(
22789 const char *uplo,
22790 const char *trans,
22791 const char *diag,
22792 const ptrdiff_t *n,
22793 const ptrdiff_t *kd,
22794 const ptrdiff_t *nrhs,
22795 const float *ab,
22796 const ptrdiff_t *ldab,
22797 float *b,
22798 const ptrdiff_t *ldb,
22799 ptrdiff_t *info
22800);
22801
22802/* Source: stfsm.f */
22803#define stfsm FORTRAN_WRAPPER(stfsm)
22804extern void stfsm(
22805 const char *transr,
22806 const char *side,
22807 const char *uplo,
22808 const char *trans,
22809 const char *diag,
22810 const ptrdiff_t *m,
22811 const ptrdiff_t *n,
22812 const float *alpha,
22813 const float *a,
22814 float *b,
22815 const ptrdiff_t *ldb
22816);
22817
22818/* Source: stftri.f */
22819#define stftri FORTRAN_WRAPPER(stftri)
22820extern void stftri(
22821 const char *transr,
22822 const char *uplo,
22823 const char *diag,
22824 const ptrdiff_t *n,
22825 float *a,
22826 ptrdiff_t *info
22827);
22828
22829/* Source: stfttp.f */
22830#define stfttp FORTRAN_WRAPPER(stfttp)
22831extern void stfttp(
22832 const char *transr,
22833 const char *uplo,
22834 const ptrdiff_t *n,
22835 const float *arf,
22836 float *ap,
22837 ptrdiff_t *info
22838);
22839
22840/* Source: stfttr.f */
22841#define stfttr FORTRAN_WRAPPER(stfttr)
22842extern void stfttr(
22843 const char *transr,
22844 const char *uplo,
22845 const ptrdiff_t *n,
22846 const float *arf,
22847 float *a,
22848 const ptrdiff_t *lda,
22849 ptrdiff_t *info
22850);
22851
22852/* Source: stgevc.f */
22853#define stgevc FORTRAN_WRAPPER(stgevc)
22854extern void stgevc(
22855 const char *side,
22856 const char *howmny,
22857 const ptrdiff_t *select,
22858 const ptrdiff_t *n,
22859 const float *s,
22860 const ptrdiff_t *lds,
22861 const float *p,
22862 const ptrdiff_t *ldp,
22863 float *vl,
22864 const ptrdiff_t *ldvl,
22865 float *vr,
22866 const ptrdiff_t *ldvr,
22867 const ptrdiff_t *mm,
22868 ptrdiff_t *m,
22869 float *work,
22870 ptrdiff_t *info
22871);
22872
22873/* Source: stgex2.f */
22874#define stgex2 FORTRAN_WRAPPER(stgex2)
22875extern void stgex2(
22876 const ptrdiff_t *wantq,
22877 const ptrdiff_t *wantz,
22878 const ptrdiff_t *n,
22879 float *a,
22880 const ptrdiff_t *lda,
22881 float *b,
22882 const ptrdiff_t *ldb,
22883 float *q,
22884 const ptrdiff_t *ldq,
22885 float *z,
22886 const ptrdiff_t *ldz,
22887 const ptrdiff_t *j1_,
22888 const ptrdiff_t *n1,
22889 const ptrdiff_t *n2,
22890 float *work,
22891 const ptrdiff_t *lwork,
22892 ptrdiff_t *info
22893);
22894
22895/* Source: stgexc.f */
22896#define stgexc FORTRAN_WRAPPER(stgexc)
22897extern void stgexc(
22898 const ptrdiff_t *wantq,
22899 const ptrdiff_t *wantz,
22900 const ptrdiff_t *n,
22901 float *a,
22902 const ptrdiff_t *lda,
22903 float *b,
22904 const ptrdiff_t *ldb,
22905 float *q,
22906 const ptrdiff_t *ldq,
22907 float *z,
22908 const ptrdiff_t *ldz,
22909 ptrdiff_t *ifst,
22910 ptrdiff_t *ilst,
22911 float *work,
22912 const ptrdiff_t *lwork,
22913 ptrdiff_t *info
22914);
22915
22916/* Source: stgsen.f */
22917#define stgsen FORTRAN_WRAPPER(stgsen)
22918extern void stgsen(
22919 const ptrdiff_t *ijob,
22920 const ptrdiff_t *wantq,
22921 const ptrdiff_t *wantz,
22922 const ptrdiff_t *select,
22923 const ptrdiff_t *n,
22924 float *a,
22925 const ptrdiff_t *lda,
22926 float *b,
22927 const ptrdiff_t *ldb,
22928 float *alphar,
22929 float *alphai,
22930 float *beta,
22931 float *q,
22932 const ptrdiff_t *ldq,
22933 float *z,
22934 const ptrdiff_t *ldz,
22935 ptrdiff_t *m,
22936 float *pl,
22937 float *pr,
22938 float *dif,
22939 float *work,
22940 const ptrdiff_t *lwork,
22941 ptrdiff_t *iwork,
22942 const ptrdiff_t *liwork,
22943 ptrdiff_t *info
22944);
22945
22946/* Source: stgsja.f */
22947#define stgsja FORTRAN_WRAPPER(stgsja)
22948extern void stgsja(
22949 const char *jobu,
22950 const char *jobv,
22951 const char *jobq,
22952 const ptrdiff_t *m,
22953 const ptrdiff_t *p,
22954 const ptrdiff_t *n,
22955 const ptrdiff_t *k,
22956 const ptrdiff_t *l,
22957 float *a,
22958 const ptrdiff_t *lda,
22959 float *b,
22960 const ptrdiff_t *ldb,
22961 const float *tola,
22962 const float *tolb,
22963 float *alpha,
22964 float *beta,
22965 float *u,
22966 const ptrdiff_t *ldu,
22967 float *v,
22968 const ptrdiff_t *ldv,
22969 float *q,
22970 const ptrdiff_t *ldq,
22971 float *work,
22972 ptrdiff_t *ncycle,
22973 ptrdiff_t *info
22974);
22975
22976/* Source: stgsna.f */
22977#define stgsna FORTRAN_WRAPPER(stgsna)
22978extern void stgsna(
22979 const char *job,
22980 const char *howmny,
22981 const ptrdiff_t *select,
22982 const ptrdiff_t *n,
22983 const float *a,
22984 const ptrdiff_t *lda,
22985 const float *b,
22986 const ptrdiff_t *ldb,
22987 const float *vl,
22988 const ptrdiff_t *ldvl,
22989 const float *vr,
22990 const ptrdiff_t *ldvr,
22991 float *s,
22992 float *dif,
22993 const ptrdiff_t *mm,
22994 ptrdiff_t *m,
22995 float *work,
22996 const ptrdiff_t *lwork,
22997 ptrdiff_t *iwork,
22998 ptrdiff_t *info
22999);
23000
23001/* Source: stgsy2.f */
23002#define stgsy2 FORTRAN_WRAPPER(stgsy2)
23003extern void stgsy2(
23004 const char *trans,
23005 const ptrdiff_t *ijob,
23006 const ptrdiff_t *m,
23007 const ptrdiff_t *n,
23008 const float *a,
23009 const ptrdiff_t *lda,
23010 const float *b,
23011 const ptrdiff_t *ldb,
23012 float *c,
23013 const ptrdiff_t *ldc,
23014 const float *d,
23015 const ptrdiff_t *ldd,
23016 const float *e,
23017 const ptrdiff_t *lde,
23018 float *f,
23019 const ptrdiff_t *ldf,
23020 float *scale,
23021 float *rdsum,
23022 float *rdscal,
23023 ptrdiff_t *iwork,
23024 ptrdiff_t *pq,
23025 ptrdiff_t *info
23026);
23027
23028/* Source: stgsyl.f */
23029#define stgsyl FORTRAN_WRAPPER(stgsyl)
23030extern void stgsyl(
23031 const char *trans,
23032 const ptrdiff_t *ijob,
23033 const ptrdiff_t *m,
23034 const ptrdiff_t *n,
23035 const float *a,
23036 const ptrdiff_t *lda,
23037 const float *b,
23038 const ptrdiff_t *ldb,
23039 float *c,
23040 const ptrdiff_t *ldc,
23041 const float *d,
23042 const ptrdiff_t *ldd,
23043 const float *e,
23044 const ptrdiff_t *lde,
23045 float *f,
23046 const ptrdiff_t *ldf,
23047 float *scale,
23048 float *dif,
23049 float *work,
23050 const ptrdiff_t *lwork,
23051 ptrdiff_t *iwork,
23052 ptrdiff_t *info
23053);
23054
23055/* Source: stpcon.f */
23056#define stpcon FORTRAN_WRAPPER(stpcon)
23057extern void stpcon(
23058 const char *norm,
23059 const char *uplo,
23060 const char *diag,
23061 const ptrdiff_t *n,
23062 const float *ap,
23063 float *rcond,
23064 float *work,
23065 ptrdiff_t *iwork,
23066 ptrdiff_t *info
23067);
23068
23069/* Source: stplqt.f */
23070#define stplqt FORTRAN_WRAPPER(stplqt)
23071extern void stplqt(
23072 const ptrdiff_t *m,
23073 const ptrdiff_t *n,
23074 const ptrdiff_t *l,
23075 const ptrdiff_t *mb,
23076 float *a,
23077 const ptrdiff_t *lda,
23078 float *b,
23079 const ptrdiff_t *ldb,
23080 float *t,
23081 const ptrdiff_t *ldt,
23082 float *work,
23083 ptrdiff_t *info
23084);
23085
23086/* Source: stplqt2.f */
23087#define stplqt2 FORTRAN_WRAPPER(stplqt2)
23088extern void stplqt2(
23089 const ptrdiff_t *m,
23090 const ptrdiff_t *n,
23091 const ptrdiff_t *l,
23092 float *a,
23093 const ptrdiff_t *lda,
23094 float *b,
23095 const ptrdiff_t *ldb,
23096 float *t,
23097 const ptrdiff_t *ldt,
23098 ptrdiff_t *info
23099);
23100
23101/* Source: stpmlqt.f */
23102#define stpmlqt FORTRAN_WRAPPER(stpmlqt)
23103extern void stpmlqt(
23104 const char *side,
23105 const char *trans,
23106 const ptrdiff_t *m,
23107 const ptrdiff_t *n,
23108 const ptrdiff_t *k,
23109 const ptrdiff_t *l,
23110 const ptrdiff_t *mb,
23111 const float *v,
23112 const ptrdiff_t *ldv,
23113 const float *t,
23114 const ptrdiff_t *ldt,
23115 float *a,
23116 const ptrdiff_t *lda,
23117 float *b,
23118 const ptrdiff_t *ldb,
23119 float *work,
23120 ptrdiff_t *info
23121);
23122
23123/* Source: stpmqrt.f */
23124#define stpmqrt FORTRAN_WRAPPER(stpmqrt)
23125extern void stpmqrt(
23126 const char *side,
23127 const char *trans,
23128 const ptrdiff_t *m,
23129 const ptrdiff_t *n,
23130 const ptrdiff_t *k,
23131 const ptrdiff_t *l,
23132 const ptrdiff_t *nb,
23133 const float *v,
23134 const ptrdiff_t *ldv,
23135 const float *t,
23136 const ptrdiff_t *ldt,
23137 float *a,
23138 const ptrdiff_t *lda,
23139 float *b,
23140 const ptrdiff_t *ldb,
23141 float *work,
23142 ptrdiff_t *info
23143);
23144
23145/* Source: stpqrt.f */
23146#define stpqrt FORTRAN_WRAPPER(stpqrt)
23147extern void stpqrt(
23148 const ptrdiff_t *m,
23149 const ptrdiff_t *n,
23150 const ptrdiff_t *l,
23151 const ptrdiff_t *nb,
23152 float *a,
23153 const ptrdiff_t *lda,
23154 float *b,
23155 const ptrdiff_t *ldb,
23156 float *t,
23157 const ptrdiff_t *ldt,
23158 float *work,
23159 ptrdiff_t *info
23160);
23161
23162/* Source: stpqrt2.f */
23163#define stpqrt2 FORTRAN_WRAPPER(stpqrt2)
23164extern void stpqrt2(
23165 const ptrdiff_t *m,
23166 const ptrdiff_t *n,
23167 const ptrdiff_t *l,
23168 float *a,
23169 const ptrdiff_t *lda,
23170 float *b,
23171 const ptrdiff_t *ldb,
23172 float *t,
23173 const ptrdiff_t *ldt,
23174 ptrdiff_t *info
23175);
23176
23177/* Source: stprfb.f */
23178#define stprfb FORTRAN_WRAPPER(stprfb)
23179extern void stprfb(
23180 const char *side,
23181 const char *trans,
23182 const char *direct,
23183 const char *storev,
23184 const ptrdiff_t *m,
23185 const ptrdiff_t *n,
23186 const ptrdiff_t *k,
23187 const ptrdiff_t *l,
23188 const float *v,
23189 const ptrdiff_t *ldv,
23190 const float *t,
23191 const ptrdiff_t *ldt,
23192 float *a,
23193 const ptrdiff_t *lda,
23194 float *b,
23195 const ptrdiff_t *ldb,
23196 float *work,
23197 const ptrdiff_t *ldwork
23198);
23199
23200/* Source: stprfs.f */
23201#define stprfs FORTRAN_WRAPPER(stprfs)
23202extern void stprfs(
23203 const char *uplo,
23204 const char *trans,
23205 const char *diag,
23206 const ptrdiff_t *n,
23207 const ptrdiff_t *nrhs,
23208 const float *ap,
23209 const float *b,
23210 const ptrdiff_t *ldb,
23211 const float *x,
23212 const ptrdiff_t *ldx,
23213 float *ferr,
23214 float *berr,
23215 float *work,
23216 ptrdiff_t *iwork,
23217 ptrdiff_t *info
23218);
23219
23220/* Source: stptri.f */
23221#define stptri FORTRAN_WRAPPER(stptri)
23222extern void stptri(
23223 const char *uplo,
23224 const char *diag,
23225 const ptrdiff_t *n,
23226 float *ap,
23227 ptrdiff_t *info
23228);
23229
23230/* Source: stptrs.f */
23231#define stptrs FORTRAN_WRAPPER(stptrs)
23232extern void stptrs(
23233 const char *uplo,
23234 const char *trans,
23235 const char *diag,
23236 const ptrdiff_t *n,
23237 const ptrdiff_t *nrhs,
23238 const float *ap,
23239 float *b,
23240 const ptrdiff_t *ldb,
23241 ptrdiff_t *info
23242);
23243
23244/* Source: stpttf.f */
23245#define stpttf FORTRAN_WRAPPER(stpttf)
23246extern void stpttf(
23247 const char *transr,
23248 const char *uplo,
23249 const ptrdiff_t *n,
23250 const float *ap,
23251 float *arf,
23252 ptrdiff_t *info
23253);
23254
23255/* Source: stpttr.f */
23256#define stpttr FORTRAN_WRAPPER(stpttr)
23257extern void stpttr(
23258 const char *uplo,
23259 const ptrdiff_t *n,
23260 const float *ap,
23261 float *a,
23262 const ptrdiff_t *lda,
23263 ptrdiff_t *info
23264);
23265
23266/* Source: strcon.f */
23267#define strcon FORTRAN_WRAPPER(strcon)
23268extern void strcon(
23269 const char *norm,
23270 const char *uplo,
23271 const char *diag,
23272 const ptrdiff_t *n,
23273 const float *a,
23274 const ptrdiff_t *lda,
23275 float *rcond,
23276 float *work,
23277 ptrdiff_t *iwork,
23278 ptrdiff_t *info
23279);
23280
23281/* Source: strevc.f */
23282#define strevc FORTRAN_WRAPPER(strevc)
23283extern void strevc(
23284 const char *side,
23285 const char *howmny,
23286 ptrdiff_t *select,
23287 const ptrdiff_t *n,
23288 const float *t,
23289 const ptrdiff_t *ldt,
23290 float *vl,
23291 const ptrdiff_t *ldvl,
23292 float *vr,
23293 const ptrdiff_t *ldvr,
23294 const ptrdiff_t *mm,
23295 ptrdiff_t *m,
23296 float *work,
23297 ptrdiff_t *info
23298);
23299
23300/* Source: strevc3.f */
23301#define strevc3 FORTRAN_WRAPPER(strevc3)
23302extern void strevc3(
23303 char *side,
23304 char *howmny,
23305 ptrdiff_t *select,
23306 ptrdiff_t *n,
23307 float *t,
23308 ptrdiff_t *ldt,
23309 float *vl,
23310 ptrdiff_t *ldvl,
23311 float *vr,
23312 ptrdiff_t *ldvr,
23313 ptrdiff_t *mm,
23314 ptrdiff_t *m,
23315 float *work,
23316 ptrdiff_t *lwork,
23317 ptrdiff_t *info
23318);
23319
23320/* Source: strexc.f */
23321#define strexc FORTRAN_WRAPPER(strexc)
23322extern void strexc(
23323 const char *compq,
23324 const ptrdiff_t *n,
23325 float *t,
23326 const ptrdiff_t *ldt,
23327 float *q,
23328 const ptrdiff_t *ldq,
23329 ptrdiff_t *ifst,
23330 ptrdiff_t *ilst,
23331 float *work,
23332 ptrdiff_t *info
23333);
23334
23335/* Source: strrfs.f */
23336#define strrfs FORTRAN_WRAPPER(strrfs)
23337extern void strrfs(
23338 const char *uplo,
23339 const char *trans,
23340 const char *diag,
23341 const ptrdiff_t *n,
23342 const ptrdiff_t *nrhs,
23343 const float *a,
23344 const ptrdiff_t *lda,
23345 const float *b,
23346 const ptrdiff_t *ldb,
23347 const float *x,
23348 const ptrdiff_t *ldx,
23349 float *ferr,
23350 float *berr,
23351 float *work,
23352 ptrdiff_t *iwork,
23353 ptrdiff_t *info
23354);
23355
23356/* Source: strsen.f */
23357#define strsen FORTRAN_WRAPPER(strsen)
23358extern void strsen(
23359 const char *job,
23360 const char *compq,
23361 const ptrdiff_t *select,
23362 const ptrdiff_t *n,
23363 float *t,
23364 const ptrdiff_t *ldt,
23365 float *q,
23366 const ptrdiff_t *ldq,
23367 float *wr,
23368 float *wi,
23369 ptrdiff_t *m,
23370 float *s,
23371 float *sep,
23372 float *work,
23373 const ptrdiff_t *lwork,
23374 ptrdiff_t *iwork,
23375 const ptrdiff_t *liwork,
23376 ptrdiff_t *info
23377);
23378
23379/* Source: strsna.f */
23380#define strsna FORTRAN_WRAPPER(strsna)
23381extern void strsna(
23382 const char *job,
23383 const char *howmny,
23384 const ptrdiff_t *select,
23385 const ptrdiff_t *n,
23386 const float *t,
23387 const ptrdiff_t *ldt,
23388 const float *vl,
23389 const ptrdiff_t *ldvl,
23390 const float *vr,
23391 const ptrdiff_t *ldvr,
23392 float *s,
23393 float *sep,
23394 const ptrdiff_t *mm,
23395 ptrdiff_t *m,
23396 float *work,
23397 const ptrdiff_t *ldwork,
23398 ptrdiff_t *iwork,
23399 ptrdiff_t *info
23400);
23401
23402/* Source: strsyl.f */
23403#define strsyl FORTRAN_WRAPPER(strsyl)
23404extern void strsyl(
23405 const char *trana,
23406 const char *tranb,
23407 const ptrdiff_t *isgn,
23408 const ptrdiff_t *m,
23409 const ptrdiff_t *n,
23410 const float *a,
23411 const ptrdiff_t *lda,
23412 const float *b,
23413 const ptrdiff_t *ldb,
23414 float *c,
23415 const ptrdiff_t *ldc,
23416 float *scale,
23417 ptrdiff_t *info
23418);
23419
23420/* Source: strti2.f */
23421#define strti2 FORTRAN_WRAPPER(strti2)
23422extern void strti2(
23423 const char *uplo,
23424 const char *diag,
23425 const ptrdiff_t *n,
23426 float *a,
23427 const ptrdiff_t *lda,
23428 ptrdiff_t *info
23429);
23430
23431/* Source: strtri.f */
23432#define strtri FORTRAN_WRAPPER(strtri)
23433extern void strtri(
23434 const char *uplo,
23435 const char *diag,
23436 const ptrdiff_t *n,
23437 float *a,
23438 const ptrdiff_t *lda,
23439 ptrdiff_t *info
23440);
23441
23442/* Source: strtrs.f */
23443#define strtrs FORTRAN_WRAPPER(strtrs)
23444extern void strtrs(
23445 const char *uplo,
23446 const char *trans,
23447 const char *diag,
23448 const ptrdiff_t *n,
23449 const ptrdiff_t *nrhs,
23450 const float *a,
23451 const ptrdiff_t *lda,
23452 float *b,
23453 const ptrdiff_t *ldb,
23454 ptrdiff_t *info
23455);
23456
23457/* Source: strttf.f */
23458#define strttf FORTRAN_WRAPPER(strttf)
23459extern void strttf(
23460 const char *transr,
23461 const char *uplo,
23462 const ptrdiff_t *n,
23463 const float *a,
23464 const ptrdiff_t *lda,
23465 float *arf,
23466 ptrdiff_t *info
23467);
23468
23469/* Source: strttp.f */
23470#define strttp FORTRAN_WRAPPER(strttp)
23471extern void strttp(
23472 const char *uplo,
23473 const ptrdiff_t *n,
23474 const float *a,
23475 const ptrdiff_t *lda,
23476 float *ap,
23477 ptrdiff_t *info
23478);
23479
23480/* Source: stzrzf.f */
23481#define stzrzf FORTRAN_WRAPPER(stzrzf)
23482extern void stzrzf(
23483 const ptrdiff_t *m,
23484 const ptrdiff_t *n,
23485 float *a,
23486 const ptrdiff_t *lda,
23487 float *tau,
23488 float *work,
23489 const ptrdiff_t *lwork,
23490 ptrdiff_t *info
23491);
23492
23493/* Source: xerbla_array.f */
23494#define xerbla_array FORTRAN_WRAPPER(xerbla_array)
23495extern void xerbla_array(
23496 const char *srname_array,
23497 const ptrdiff_t *srname_len,
23498 const ptrdiff_t *info
23499);
23500
23501/* Source: zbbcsd.f */
23502#define zbbcsd FORTRAN_WRAPPER(zbbcsd)
23503extern void zbbcsd(
23504 const char *jobu1,
23505 const char *jobu2,
23506 const char *jobv1t,
23507 const char *jobv2t,
23508 const char *trans,
23509 const ptrdiff_t *m,
23510 const ptrdiff_t *p,
23511 const ptrdiff_t *q,
23512 double *theta,
23513 double *phi,
23514 double *u1,
23515 const ptrdiff_t *ldu1,
23516 double *u2,
23517 const ptrdiff_t *ldu2,
23518 double *v1t,
23519 const ptrdiff_t *ldv1t,
23520 double *v2t,
23521 const ptrdiff_t *ldv2t,
23522 double *b11d,
23523 double *b11e,
23524 double *b12d,
23525 double *b12e,
23526 double *b21d,
23527 double *b21e,
23528 double *b22d,
23529 double *b22e,
23530 double *rwork,
23531 const ptrdiff_t *lrwork,
23532 ptrdiff_t *info
23533);
23534
23535/* Source: zbdsqr.f */
23536#define zbdsqr FORTRAN_WRAPPER(zbdsqr)
23537extern void zbdsqr(
23538 const char *uplo,
23539 const ptrdiff_t *n,
23540 const ptrdiff_t *ncvt,
23541 const ptrdiff_t *nru,
23542 const ptrdiff_t *ncc,
23543 double *d,
23544 double *e,
23545 double *vt,
23546 const ptrdiff_t *ldvt,
23547 double *u,
23548 const ptrdiff_t *ldu,
23549 double *c,
23550 const ptrdiff_t *ldc,
23551 double *rwork,
23552 ptrdiff_t *info
23553);
23554
23555/* Source: zcgesv.f */
23556#define zcgesv FORTRAN_WRAPPER(zcgesv)
23557extern void zcgesv(
23558 const ptrdiff_t *n,
23559 const ptrdiff_t *nrhs,
23560 double *a,
23561 const ptrdiff_t *lda,
23562 ptrdiff_t *ipiv,
23563 const double *b,
23564 const ptrdiff_t *ldb,
23565 double *x,
23566 const ptrdiff_t *ldx,
23567 double *work,
23568 float *swork,
23569 double *rwork,
23570 ptrdiff_t *iter,
23571 ptrdiff_t *info
23572);
23573
23574/* Source: zcposv.f */
23575#define zcposv FORTRAN_WRAPPER(zcposv)
23576extern void zcposv(
23577 const char *uplo,
23578 const ptrdiff_t *n,
23579 const ptrdiff_t *nrhs,
23580 double *a,
23581 const ptrdiff_t *lda,
23582 const double *b,
23583 const ptrdiff_t *ldb,
23584 double *x,
23585 const ptrdiff_t *ldx,
23586 double *work,
23587 float *swork,
23588 double *rwork,
23589 ptrdiff_t *iter,
23590 ptrdiff_t *info
23591);
23592
23593/* Source: zdrscl.f */
23594#define zdrscl FORTRAN_WRAPPER(zdrscl)
23595extern void zdrscl(
23596 const ptrdiff_t *n,
23597 const double *sa,
23598 double *sx,
23599 const ptrdiff_t *incx
23600);
23601
23602/* Source: zgbbrd.f */
23603#define zgbbrd FORTRAN_WRAPPER(zgbbrd)
23604extern void zgbbrd(
23605 const char *vect,
23606 const ptrdiff_t *m,
23607 const ptrdiff_t *n,
23608 const ptrdiff_t *ncc,
23609 const ptrdiff_t *kl,
23610 const ptrdiff_t *ku,
23611 double *ab,
23612 const ptrdiff_t *ldab,
23613 double *d,
23614 double *e,
23615 double *q,
23616 const ptrdiff_t *ldq,
23617 double *pt,
23618 const ptrdiff_t *ldpt,
23619 double *c,
23620 const ptrdiff_t *ldc,
23621 double *work,
23622 double *rwork,
23623 ptrdiff_t *info
23624);
23625
23626/* Source: zgbcon.f */
23627#define zgbcon FORTRAN_WRAPPER(zgbcon)
23628extern void zgbcon(
23629 const char *norm,
23630 const ptrdiff_t *n,
23631 const ptrdiff_t *kl,
23632 const ptrdiff_t *ku,
23633 const double *ab,
23634 const ptrdiff_t *ldab,
23635 const ptrdiff_t *ipiv,
23636 const double *anorm,
23637 double *rcond,
23638 double *work,
23639 double *rwork,
23640 ptrdiff_t *info
23641);
23642
23643/* Source: zgbequ.f */
23644#define zgbequ FORTRAN_WRAPPER(zgbequ)
23645extern void zgbequ(
23646 const ptrdiff_t *m,
23647 const ptrdiff_t *n,
23648 const ptrdiff_t *kl,
23649 const ptrdiff_t *ku,
23650 const double *ab,
23651 const ptrdiff_t *ldab,
23652 double *r,
23653 double *c,
23654 double *rowcnd,
23655 double *colcnd,
23656 double *amax,
23657 ptrdiff_t *info
23658);
23659
23660/* Source: zgbequb.f */
23661#define zgbequb FORTRAN_WRAPPER(zgbequb)
23662extern void zgbequb(
23663 const ptrdiff_t *m,
23664 const ptrdiff_t *n,
23665 const ptrdiff_t *kl,
23666 const ptrdiff_t *ku,
23667 const double *ab,
23668 const ptrdiff_t *ldab,
23669 double *r,
23670 double *c,
23671 double *rowcnd,
23672 double *colcnd,
23673 double *amax,
23674 ptrdiff_t *info
23675);
23676
23677/* Source: zgbrfs.f */
23678#define zgbrfs FORTRAN_WRAPPER(zgbrfs)
23679extern void zgbrfs(
23680 const char *trans,
23681 const ptrdiff_t *n,
23682 const ptrdiff_t *kl,
23683 const ptrdiff_t *ku,
23684 const ptrdiff_t *nrhs,
23685 const double *ab,
23686 const ptrdiff_t *ldab,
23687 const double *afb,
23688 const ptrdiff_t *ldafb,
23689 const ptrdiff_t *ipiv,
23690 const double *b,
23691 const ptrdiff_t *ldb,
23692 double *x,
23693 const ptrdiff_t *ldx,
23694 double *ferr,
23695 double *berr,
23696 double *work,
23697 double *rwork,
23698 ptrdiff_t *info
23699);
23700
23701/* Source: zgbsv.f */
23702#define zgbsv FORTRAN_WRAPPER(zgbsv)
23703extern void zgbsv(
23704 const ptrdiff_t *n,
23705 const ptrdiff_t *kl,
23706 const ptrdiff_t *ku,
23707 const ptrdiff_t *nrhs,
23708 double *ab,
23709 const ptrdiff_t *ldab,
23710 ptrdiff_t *ipiv,
23711 double *b,
23712 const ptrdiff_t *ldb,
23713 ptrdiff_t *info
23714);
23715
23716/* Source: zgbsvx.f */
23717#define zgbsvx FORTRAN_WRAPPER(zgbsvx)
23718extern void zgbsvx(
23719 const char *fact,
23720 const char *trans,
23721 const ptrdiff_t *n,
23722 const ptrdiff_t *kl,
23723 const ptrdiff_t *ku,
23724 const ptrdiff_t *nrhs,
23725 double *ab,
23726 const ptrdiff_t *ldab,
23727 double *afb,
23728 const ptrdiff_t *ldafb,
23729 ptrdiff_t *ipiv,
23730 char *equed,
23731 double *r,
23732 double *c,
23733 double *b,
23734 const ptrdiff_t *ldb,
23735 double *x,
23736 const ptrdiff_t *ldx,
23737 double *rcond,
23738 double *ferr,
23739 double *berr,
23740 double *work,
23741 double *rwork,
23742 ptrdiff_t *info
23743);
23744
23745/* Source: zgbtf2.f */
23746#define zgbtf2 FORTRAN_WRAPPER(zgbtf2)
23747extern void zgbtf2(
23748 const ptrdiff_t *m,
23749 const ptrdiff_t *n,
23750 const ptrdiff_t *kl,
23751 const ptrdiff_t *ku,
23752 double *ab,
23753 const ptrdiff_t *ldab,
23754 ptrdiff_t *ipiv,
23755 ptrdiff_t *info
23756);
23757
23758/* Source: zgbtrf.f */
23759#define zgbtrf FORTRAN_WRAPPER(zgbtrf)
23760extern void zgbtrf(
23761 const ptrdiff_t *m,
23762 const ptrdiff_t *n,
23763 const ptrdiff_t *kl,
23764 const ptrdiff_t *ku,
23765 double *ab,
23766 const ptrdiff_t *ldab,
23767 ptrdiff_t *ipiv,
23768 ptrdiff_t *info
23769);
23770
23771/* Source: zgbtrs.f */
23772#define zgbtrs FORTRAN_WRAPPER(zgbtrs)
23773extern void zgbtrs(
23774 const char *trans,
23775 const ptrdiff_t *n,
23776 const ptrdiff_t *kl,
23777 const ptrdiff_t *ku,
23778 const ptrdiff_t *nrhs,
23779 const double *ab,
23780 const ptrdiff_t *ldab,
23781 const ptrdiff_t *ipiv,
23782 double *b,
23783 const ptrdiff_t *ldb,
23784 ptrdiff_t *info
23785);
23786
23787/* Source: zgebak.f */
23788#define zgebak FORTRAN_WRAPPER(zgebak)
23789extern void zgebak(
23790 const char *job,
23791 const char *side,
23792 const ptrdiff_t *n,
23793 const ptrdiff_t *ilo,
23794 const ptrdiff_t *ihi,
23795 const double *scale,
23796 const ptrdiff_t *m,
23797 double *v,
23798 const ptrdiff_t *ldv,
23799 ptrdiff_t *info
23800);
23801
23802/* Source: zgebal.f */
23803#define zgebal FORTRAN_WRAPPER(zgebal)
23804extern void zgebal(
23805 const char *job,
23806 const ptrdiff_t *n,
23807 double *a,
23808 const ptrdiff_t *lda,
23809 ptrdiff_t *ilo,
23810 ptrdiff_t *ihi,
23811 double *scale,
23812 ptrdiff_t *info
23813);
23814
23815/* Source: zgebd2.f */
23816#define zgebd2 FORTRAN_WRAPPER(zgebd2)
23817extern void zgebd2(
23818 const ptrdiff_t *m,
23819 const ptrdiff_t *n,
23820 double *a,
23821 const ptrdiff_t *lda,
23822 double *d,
23823 double *e,
23824 double *tauq,
23825 double *taup,
23826 double *work,
23827 ptrdiff_t *info
23828);
23829
23830/* Source: zgebrd.f */
23831#define zgebrd FORTRAN_WRAPPER(zgebrd)
23832extern void zgebrd(
23833 const ptrdiff_t *m,
23834 const ptrdiff_t *n,
23835 double *a,
23836 const ptrdiff_t *lda,
23837 double *d,
23838 double *e,
23839 double *tauq,
23840 double *taup,
23841 double *work,
23842 const ptrdiff_t *lwork,
23843 ptrdiff_t *info
23844);
23845
23846/* Source: zgecon.f */
23847#define zgecon FORTRAN_WRAPPER(zgecon)
23848extern void zgecon(
23849 const char *norm,
23850 const ptrdiff_t *n,
23851 const double *a,
23852 const ptrdiff_t *lda,
23853 const double *anorm,
23854 double *rcond,
23855 double *work,
23856 double *rwork,
23857 ptrdiff_t *info
23858);
23859
23860/* Source: zgeequ.f */
23861#define zgeequ FORTRAN_WRAPPER(zgeequ)
23862extern void zgeequ(
23863 const ptrdiff_t *m,
23864 const ptrdiff_t *n,
23865 const double *a,
23866 const ptrdiff_t *lda,
23867 double *r,
23868 double *c,
23869 double *rowcnd,
23870 double *colcnd,
23871 double *amax,
23872 ptrdiff_t *info
23873);
23874
23875/* Source: zgeequb.f */
23876#define zgeequb FORTRAN_WRAPPER(zgeequb)
23877extern void zgeequb(
23878 const ptrdiff_t *m,
23879 const ptrdiff_t *n,
23880 const double *a,
23881 const ptrdiff_t *lda,
23882 double *r,
23883 double *c,
23884 double *rowcnd,
23885 double *colcnd,
23886 double *amax,
23887 ptrdiff_t *info
23888);
23889
23890/* Source: zgees.f */
23891#define zgees FORTRAN_WRAPPER(zgees)
23892extern void zgees(
23893 const char *jobvs,
23894 const char *sort,
23895 ptrdiff_t (*select)(),
23896 const ptrdiff_t *n,
23897 double *a,
23898 const ptrdiff_t *lda,
23899 ptrdiff_t *sdim,
23900 double *w,
23901 double *vs,
23902 const ptrdiff_t *ldvs,
23903 double *work,
23904 const ptrdiff_t *lwork,
23905 double *rwork,
23906 ptrdiff_t *bwork,
23907 ptrdiff_t *info
23908);
23909
23910/* Source: zgeesx.f */
23911#define zgeesx FORTRAN_WRAPPER(zgeesx)
23912extern void zgeesx(
23913 const char *jobvs,
23914 const char *sort,
23915 ptrdiff_t (*select)(),
23916 const char *sense,
23917 const ptrdiff_t *n,
23918 double *a,
23919 const ptrdiff_t *lda,
23920 ptrdiff_t *sdim,
23921 double *w,
23922 double *vs,
23923 const ptrdiff_t *ldvs,
23924 double *rconde,
23925 double *rcondv,
23926 double *work,
23927 const ptrdiff_t *lwork,
23928 double *rwork,
23929 ptrdiff_t *bwork,
23930 ptrdiff_t *info
23931);
23932
23933/* Source: zgeev.f */
23934#define zgeev FORTRAN_WRAPPER(zgeev)
23935extern void zgeev(
23936 const char *jobvl,
23937 const char *jobvr,
23938 const ptrdiff_t *n,
23939 double *a,
23940 const ptrdiff_t *lda,
23941 double *w,
23942 double *vl,
23943 const ptrdiff_t *ldvl,
23944 double *vr,
23945 const ptrdiff_t *ldvr,
23946 double *work,
23947 const ptrdiff_t *lwork,
23948 double *rwork,
23949 ptrdiff_t *info
23950);
23951
23952/* Source: zgeevx.f */
23953#define zgeevx FORTRAN_WRAPPER(zgeevx)
23954extern void zgeevx(
23955 const char *balanc,
23956 const char *jobvl,
23957 const char *jobvr,
23958 const char *sense,
23959 const ptrdiff_t *n,
23960 double *a,
23961 const ptrdiff_t *lda,
23962 double *w,
23963 double *vl,
23964 const ptrdiff_t *ldvl,
23965 double *vr,
23966 const ptrdiff_t *ldvr,
23967 ptrdiff_t *ilo,
23968 ptrdiff_t *ihi,
23969 double *scale,
23970 double *abnrm,
23971 double *rconde,
23972 double *rcondv,
23973 double *work,
23974 const ptrdiff_t *lwork,
23975 double *rwork,
23976 ptrdiff_t *info
23977);
23978
23979/* Source: zgehd2.f */
23980#define zgehd2 FORTRAN_WRAPPER(zgehd2)
23981extern void zgehd2(
23982 const ptrdiff_t *n,
23983 const ptrdiff_t *ilo,
23984 const ptrdiff_t *ihi,
23985 double *a,
23986 const ptrdiff_t *lda,
23987 double *tau,
23988 double *work,
23989 ptrdiff_t *info
23990);
23991
23992/* Source: zgehrd.f */
23993#define zgehrd FORTRAN_WRAPPER(zgehrd)
23994extern void zgehrd(
23995 const ptrdiff_t *n,
23996 const ptrdiff_t *ilo,
23997 const ptrdiff_t *ihi,
23998 double *a,
23999 const ptrdiff_t *lda,
24000 double *tau,
24001 double *work,
24002 const ptrdiff_t *lwork,
24003 ptrdiff_t *info
24004);
24005
24006/* Source: zgejsv.f */
24007#define zgejsv FORTRAN_WRAPPER(zgejsv)
24008extern void zgejsv(
24009 const char *joba,
24010 const char *jobu,
24011 const char *jobv,
24012 const char *jobr,
24013 const char *jobt,
24014 const char *jobp,
24015 const ptrdiff_t *m,
24016 const ptrdiff_t *n,
24017 double *a,
24018 const ptrdiff_t *lda,
24019 double *sva,
24020 double *u,
24021 const ptrdiff_t *ldu,
24022 double *v,
24023 const ptrdiff_t *ldv,
24024 double *cwork,
24025 const ptrdiff_t *lwork,
24026 double *rwork,
24027 const ptrdiff_t *lrwork,
24028 ptrdiff_t *iwork,
24029 ptrdiff_t *info
24030);
24031
24032/* Source: zgelq.f */
24033#define zgelq FORTRAN_WRAPPER(zgelq)
24034extern void zgelq(
24035 const ptrdiff_t *m,
24036 const ptrdiff_t *n,
24037 double *a,
24038 const ptrdiff_t *lda,
24039 double *t,
24040 const ptrdiff_t *tsize,
24041 double *work,
24042 const ptrdiff_t *lwork,
24043 ptrdiff_t *info
24044);
24045
24046/* Source: zgelq2.f */
24047#define zgelq2 FORTRAN_WRAPPER(zgelq2)
24048extern void zgelq2(
24049 const ptrdiff_t *m,
24050 const ptrdiff_t *n,
24051 double *a,
24052 const ptrdiff_t *lda,
24053 double *tau,
24054 double *work,
24055 ptrdiff_t *info
24056);
24057
24058/* Source: zgelqf.f */
24059#define zgelqf FORTRAN_WRAPPER(zgelqf)
24060extern void zgelqf(
24061 const ptrdiff_t *m,
24062 const ptrdiff_t *n,
24063 double *a,
24064 const ptrdiff_t *lda,
24065 double *tau,
24066 double *work,
24067 const ptrdiff_t *lwork,
24068 ptrdiff_t *info
24069);
24070
24071/* Source: zgelqt.f */
24072#define zgelqt FORTRAN_WRAPPER(zgelqt)
24073extern void zgelqt(
24074 const ptrdiff_t *m,
24075 const ptrdiff_t *n,
24076 const ptrdiff_t *mb,
24077 double *a,
24078 const ptrdiff_t *lda,
24079 double *t,
24080 const ptrdiff_t *ldt,
24081 double *work,
24082 ptrdiff_t *info
24083);
24084
24085/* Source: zgelqt3.f */
24086#define zgelqt3 FORTRAN_WRAPPER(zgelqt3)
24087extern void zgelqt3(
24088 const ptrdiff_t *m,
24089 const ptrdiff_t *n,
24090 double *a,
24091 const ptrdiff_t *lda,
24092 double *t,
24093 const ptrdiff_t *ldt,
24094 ptrdiff_t *info
24095);
24096
24097/* Source: zgels.f */
24098#define zgels FORTRAN_WRAPPER(zgels)
24099extern void zgels(
24100 const char *trans,
24101 const ptrdiff_t *m,
24102 const ptrdiff_t *n,
24103 const ptrdiff_t *nrhs,
24104 double *a,
24105 const ptrdiff_t *lda,
24106 double *b,
24107 const ptrdiff_t *ldb,
24108 double *work,
24109 const ptrdiff_t *lwork,
24110 ptrdiff_t *info
24111);
24112
24113/* Source: zgelsd.f */
24114#define zgelsd FORTRAN_WRAPPER(zgelsd)
24115extern void zgelsd(
24116 const ptrdiff_t *m,
24117 const ptrdiff_t *n,
24118 const ptrdiff_t *nrhs,
24119 const double *a,
24120 const ptrdiff_t *lda,
24121 double *b,
24122 const ptrdiff_t *ldb,
24123 double *s,
24124 const double *rcond,
24125 ptrdiff_t *rank,
24126 double *work,
24127 const ptrdiff_t *lwork,
24128 double *rwork,
24129 ptrdiff_t *iwork,
24130 ptrdiff_t *info
24131);
24132
24133/* Source: zgelss.f */
24134#define zgelss FORTRAN_WRAPPER(zgelss)
24135extern void zgelss(
24136 const ptrdiff_t *m,
24137 const ptrdiff_t *n,
24138 const ptrdiff_t *nrhs,
24139 double *a,
24140 const ptrdiff_t *lda,
24141 double *b,
24142 const ptrdiff_t *ldb,
24143 double *s,
24144 const double *rcond,
24145 ptrdiff_t *rank,
24146 double *work,
24147 const ptrdiff_t *lwork,
24148 double *rwork,
24149 ptrdiff_t *info
24150);
24151
24152/* Source: zgelsy.f */
24153#define zgelsy FORTRAN_WRAPPER(zgelsy)
24154extern void zgelsy(
24155 const ptrdiff_t *m,
24156 const ptrdiff_t *n,
24157 const ptrdiff_t *nrhs,
24158 double *a,
24159 const ptrdiff_t *lda,
24160 double *b,
24161 const ptrdiff_t *ldb,
24162 ptrdiff_t *jpvt,
24163 const double *rcond,
24164 ptrdiff_t *rank,
24165 double *work,
24166 const ptrdiff_t *lwork,
24167 double *rwork,
24168 ptrdiff_t *info
24169);
24170
24171/* Source: zgemlq.f */
24172#define zgemlq FORTRAN_WRAPPER(zgemlq)
24173extern void zgemlq(
24174 const char *side,
24175 const char *trans,
24176 const ptrdiff_t *m,
24177 const ptrdiff_t *n,
24178 const ptrdiff_t *k,
24179 const double *a,
24180 const ptrdiff_t *lda,
24181 const double *t,
24182 const ptrdiff_t *tsize,
24183 double *c,
24184 const ptrdiff_t *ldc,
24185 double *work,
24186 const ptrdiff_t *lwork,
24187 ptrdiff_t *info
24188);
24189
24190/* Source: zgemlqt.f */
24191#define zgemlqt FORTRAN_WRAPPER(zgemlqt)
24192extern void zgemlqt(
24193 const char *side,
24194 const char *trans,
24195 const ptrdiff_t *m,
24196 const ptrdiff_t *n,
24197 const ptrdiff_t *k,
24198 const ptrdiff_t *mb,
24199 const double *v,
24200 const ptrdiff_t *ldv,
24201 const double *t,
24202 const ptrdiff_t *ldt,
24203 double *c,
24204 const ptrdiff_t *ldc,
24205 double *work,
24206 ptrdiff_t *info
24207);
24208
24209/* Source: zgemqr.f */
24210#define zgemqr FORTRAN_WRAPPER(zgemqr)
24211extern void zgemqr(
24212 const char *side,
24213 const char *trans,
24214 const ptrdiff_t *m,
24215 const ptrdiff_t *n,
24216 const ptrdiff_t *k,
24217 const double *a,
24218 const ptrdiff_t *lda,
24219 const double *t,
24220 const ptrdiff_t *tsize,
24221 double *c,
24222 const ptrdiff_t *ldc,
24223 double *work,
24224 const ptrdiff_t *lwork,
24225 ptrdiff_t *info
24226);
24227
24228/* Source: zgemqrt.f */
24229#define zgemqrt FORTRAN_WRAPPER(zgemqrt)
24230extern void zgemqrt(
24231 const char *side,
24232 const char *trans,
24233 const ptrdiff_t *m,
24234 const ptrdiff_t *n,
24235 const ptrdiff_t *k,
24236 const ptrdiff_t *nb,
24237 const double *v,
24238 const ptrdiff_t *ldv,
24239 const double *t,
24240 const ptrdiff_t *ldt,
24241 double *c,
24242 const ptrdiff_t *ldc,
24243 double *work,
24244 ptrdiff_t *info
24245);
24246
24247/* Source: zgeql2.f */
24248#define zgeql2 FORTRAN_WRAPPER(zgeql2)
24249extern void zgeql2(
24250 const ptrdiff_t *m,
24251 const ptrdiff_t *n,
24252 double *a,
24253 const ptrdiff_t *lda,
24254 double *tau,
24255 double *work,
24256 ptrdiff_t *info
24257);
24258
24259/* Source: zgeqlf.f */
24260#define zgeqlf FORTRAN_WRAPPER(zgeqlf)
24261extern void zgeqlf(
24262 const ptrdiff_t *m,
24263 const ptrdiff_t *n,
24264 double *a,
24265 const ptrdiff_t *lda,
24266 double *tau,
24267 double *work,
24268 const ptrdiff_t *lwork,
24269 ptrdiff_t *info
24270);
24271
24272/* Source: zgeqp3.f */
24273#define zgeqp3 FORTRAN_WRAPPER(zgeqp3)
24274extern void zgeqp3(
24275 const ptrdiff_t *m,
24276 const ptrdiff_t *n,
24277 double *a,
24278 const ptrdiff_t *lda,
24279 ptrdiff_t *jpvt,
24280 double *tau,
24281 double *work,
24282 const ptrdiff_t *lwork,
24283 double *rwork,
24284 ptrdiff_t *info
24285);
24286
24287/* Source: zgeqpf.f */
24288#define zgeqpf FORTRAN_WRAPPER(zgeqpf)
24289extern void zgeqpf(
24290 const ptrdiff_t *m,
24291 const ptrdiff_t *n,
24292 double *a,
24293 const ptrdiff_t *lda,
24294 ptrdiff_t *jpvt,
24295 double *tau,
24296 double *work,
24297 double *rwork,
24298 ptrdiff_t *info
24299);
24300
24301/* Source: zgeqr.f */
24302#define zgeqr FORTRAN_WRAPPER(zgeqr)
24303extern void zgeqr(
24304 const ptrdiff_t *m,
24305 const ptrdiff_t *n,
24306 double *a,
24307 const ptrdiff_t *lda,
24308 double *t,
24309 const ptrdiff_t *tsize,
24310 double *work,
24311 const ptrdiff_t *lwork,
24312 ptrdiff_t *info
24313);
24314
24315/* Source: zgeqr2.f */
24316#define zgeqr2 FORTRAN_WRAPPER(zgeqr2)
24317extern void zgeqr2(
24318 const ptrdiff_t *m,
24319 const ptrdiff_t *n,
24320 double *a,
24321 const ptrdiff_t *lda,
24322 double *tau,
24323 double *work,
24324 ptrdiff_t *info
24325);
24326
24327/* Source: zgeqr2p.f */
24328#define zgeqr2p FORTRAN_WRAPPER(zgeqr2p)
24329extern void zgeqr2p(
24330 const ptrdiff_t *m,
24331 const ptrdiff_t *n,
24332 double *a,
24333 const ptrdiff_t *lda,
24334 double *tau,
24335 double *work,
24336 ptrdiff_t *info
24337);
24338
24339/* Source: zgeqrf.f */
24340#define zgeqrf FORTRAN_WRAPPER(zgeqrf)
24341extern void zgeqrf(
24342 const ptrdiff_t *m,
24343 const ptrdiff_t *n,
24344 double *a,
24345 const ptrdiff_t *lda,
24346 double *tau,
24347 double *work,
24348 const ptrdiff_t *lwork,
24349 ptrdiff_t *info
24350);
24351
24352/* Source: zgeqrfp.f */
24353#define zgeqrfp FORTRAN_WRAPPER(zgeqrfp)
24354extern void zgeqrfp(
24355 const ptrdiff_t *m,
24356 const ptrdiff_t *n,
24357 double *a,
24358 const ptrdiff_t *lda,
24359 double *tau,
24360 double *work,
24361 const ptrdiff_t *lwork,
24362 ptrdiff_t *info
24363);
24364
24365/* Source: zgeqrt.f */
24366#define zgeqrt FORTRAN_WRAPPER(zgeqrt)
24367extern void zgeqrt(
24368 const ptrdiff_t *m,
24369 const ptrdiff_t *n,
24370 const ptrdiff_t *nb,
24371 double *a,
24372 const ptrdiff_t *lda,
24373 double *t,
24374 const ptrdiff_t *ldt,
24375 double *work,
24376 ptrdiff_t *info
24377);
24378
24379/* Source: zgeqrt2.f */
24380#define zgeqrt2 FORTRAN_WRAPPER(zgeqrt2)
24381extern void zgeqrt2(
24382 const ptrdiff_t *m,
24383 const ptrdiff_t *n,
24384 double *a,
24385 const ptrdiff_t *lda,
24386 double *t,
24387 const ptrdiff_t *ldt,
24388 ptrdiff_t *info
24389);
24390
24391/* Source: zgeqrt3.f */
24392#define zgeqrt3 FORTRAN_WRAPPER(zgeqrt3)
24393extern void zgeqrt3(
24394 const ptrdiff_t *m,
24395 const ptrdiff_t *n,
24396 double *a,
24397 const ptrdiff_t *lda,
24398 double *t,
24399 const ptrdiff_t *ldt,
24400 ptrdiff_t *info
24401);
24402
24403/* Source: zgerfs.f */
24404#define zgerfs FORTRAN_WRAPPER(zgerfs)
24405extern void zgerfs(
24406 const char *trans,
24407 const ptrdiff_t *n,
24408 const ptrdiff_t *nrhs,
24409 const double *a,
24410 const ptrdiff_t *lda,
24411 const double *af,
24412 const ptrdiff_t *ldaf,
24413 const ptrdiff_t *ipiv,
24414 const double *b,
24415 const ptrdiff_t *ldb,
24416 double *x,
24417 const ptrdiff_t *ldx,
24418 double *ferr,
24419 double *berr,
24420 double *work,
24421 double *rwork,
24422 ptrdiff_t *info
24423);
24424
24425/* Source: zgerq2.f */
24426#define zgerq2 FORTRAN_WRAPPER(zgerq2)
24427extern void zgerq2(
24428 const ptrdiff_t *m,
24429 const ptrdiff_t *n,
24430 double *a,
24431 const ptrdiff_t *lda,
24432 double *tau,
24433 double *work,
24434 ptrdiff_t *info
24435);
24436
24437/* Source: zgerqf.f */
24438#define zgerqf FORTRAN_WRAPPER(zgerqf)
24439extern void zgerqf(
24440 const ptrdiff_t *m,
24441 const ptrdiff_t *n,
24442 double *a,
24443 const ptrdiff_t *lda,
24444 double *tau,
24445 double *work,
24446 const ptrdiff_t *lwork,
24447 ptrdiff_t *info
24448);
24449
24450/* Source: zgesc2.f */
24451#define zgesc2 FORTRAN_WRAPPER(zgesc2)
24452extern void zgesc2(
24453 const ptrdiff_t *n,
24454 const double *a,
24455 const ptrdiff_t *lda,
24456 double *rhs,
24457 const ptrdiff_t *ipiv,
24458 const ptrdiff_t *jpiv,
24459 double *scale
24460);
24461
24462/* Source: zgesdd.f */
24463#define zgesdd FORTRAN_WRAPPER(zgesdd)
24464extern void zgesdd(
24465 const char *jobz,
24466 const ptrdiff_t *m,
24467 const ptrdiff_t *n,
24468 double *a,
24469 const ptrdiff_t *lda,
24470 double *s,
24471 double *u,
24472 const ptrdiff_t *ldu,
24473 double *vt,
24474 const ptrdiff_t *ldvt,
24475 double *work,
24476 const ptrdiff_t *lwork,
24477 double *rwork,
24478 ptrdiff_t *iwork,
24479 ptrdiff_t *info
24480);
24481
24482/* Source: zgesv.f */
24483#define zgesv FORTRAN_WRAPPER(zgesv)
24484extern void zgesv(
24485 const ptrdiff_t *n,
24486 const ptrdiff_t *nrhs,
24487 double *a,
24488 const ptrdiff_t *lda,
24489 ptrdiff_t *ipiv,
24490 double *b,
24491 const ptrdiff_t *ldb,
24492 ptrdiff_t *info
24493);
24494
24495/* Source: zgesvd.f */
24496#define zgesvd FORTRAN_WRAPPER(zgesvd)
24497extern void zgesvd(
24498 const char *jobu,
24499 const char *jobvt,
24500 const ptrdiff_t *m,
24501 const ptrdiff_t *n,
24502 double *a,
24503 const ptrdiff_t *lda,
24504 double *s,
24505 double *u,
24506 const ptrdiff_t *ldu,
24507 double *vt,
24508 const ptrdiff_t *ldvt,
24509 double *work,
24510 const ptrdiff_t *lwork,
24511 double *rwork,
24512 ptrdiff_t *info
24513);
24514
24515/* Source: zgesvdx.f */
24516#define zgesvdx FORTRAN_WRAPPER(zgesvdx)
24517extern void zgesvdx(
24518 const char *jobu,
24519 const char *jobvt,
24520 const char *range,
24521 const ptrdiff_t *m,
24522 const ptrdiff_t *n,
24523 double *a,
24524 const ptrdiff_t *lda,
24525 const double *vl,
24526 const double *vu,
24527 const ptrdiff_t *il,
24528 const ptrdiff_t *iu,
24529 ptrdiff_t *ns,
24530 double *s,
24531 double *u,
24532 const ptrdiff_t *ldu,
24533 double *vt,
24534 const ptrdiff_t *ldvt,
24535 double *work,
24536 const ptrdiff_t *lwork,
24537 double *rwork,
24538 ptrdiff_t *iwork,
24539 ptrdiff_t *info
24540);
24541
24542/* Source: zgesvj.f */
24543#define zgesvj FORTRAN_WRAPPER(zgesvj)
24544extern void zgesvj(
24545 const char *joba,
24546 const char *jobu,
24547 const char *jobv,
24548 const ptrdiff_t *m,
24549 const ptrdiff_t *n,
24550 double *a,
24551 const ptrdiff_t *lda,
24552 double *sva,
24553 const ptrdiff_t *mv,
24554 double *v,
24555 const ptrdiff_t *ldv,
24556 double *cwork,
24557 const ptrdiff_t *lwork,
24558 double *rwork,
24559 const ptrdiff_t *lrwork,
24560 ptrdiff_t *info
24561);
24562
24563/* Source: zgesvx.f */
24564#define zgesvx FORTRAN_WRAPPER(zgesvx)
24565extern void zgesvx(
24566 const char *fact,
24567 const char *trans,
24568 const ptrdiff_t *n,
24569 const ptrdiff_t *nrhs,
24570 double *a,
24571 const ptrdiff_t *lda,
24572 double *af,
24573 const ptrdiff_t *ldaf,
24574 ptrdiff_t *ipiv,
24575 char *equed,
24576 double *r,
24577 double *c,
24578 double *b,
24579 const ptrdiff_t *ldb,
24580 double *x,
24581 const ptrdiff_t *ldx,
24582 double *rcond,
24583 double *ferr,
24584 double *berr,
24585 double *work,
24586 double *rwork,
24587 ptrdiff_t *info
24588);
24589
24590/* Source: zgetc2.f */
24591#define zgetc2 FORTRAN_WRAPPER(zgetc2)
24592extern void zgetc2(
24593 const ptrdiff_t *n,
24594 double *a,
24595 const ptrdiff_t *lda,
24596 ptrdiff_t *ipiv,
24597 ptrdiff_t *jpiv,
24598 ptrdiff_t *info
24599);
24600
24601/* Source: zgetf2.f */
24602#define zgetf2 FORTRAN_WRAPPER(zgetf2)
24603extern void zgetf2(
24604 const ptrdiff_t *m,
24605 const ptrdiff_t *n,
24606 double *a,
24607 const ptrdiff_t *lda,
24608 ptrdiff_t *ipiv,
24609 ptrdiff_t *info
24610);
24611
24612/* Source: zgetrf.f */
24613#define zgetrf FORTRAN_WRAPPER(zgetrf)
24614extern void zgetrf(
24615 const ptrdiff_t *m,
24616 const ptrdiff_t *n,
24617 double *a,
24618 const ptrdiff_t *lda,
24619 ptrdiff_t *ipiv,
24620 ptrdiff_t *info
24621);
24622
24623/* Source: zgetrf2.f */
24624#define zgetrf2 FORTRAN_WRAPPER(zgetrf2)
24625extern void zgetrf2(
24626 const ptrdiff_t *m,
24627 const ptrdiff_t *n,
24628 double *a,
24629 const ptrdiff_t *lda,
24630 ptrdiff_t *ipiv,
24631 ptrdiff_t *info
24632);
24633
24634/* Source: zgetri.f */
24635#define zgetri FORTRAN_WRAPPER(zgetri)
24636extern void zgetri(
24637 const ptrdiff_t *n,
24638 double *a,
24639 const ptrdiff_t *lda,
24640 const ptrdiff_t *ipiv,
24641 double *work,
24642 const ptrdiff_t *lwork,
24643 ptrdiff_t *info
24644);
24645
24646/* Source: zgetrs.f */
24647#define zgetrs FORTRAN_WRAPPER(zgetrs)
24648extern void zgetrs(
24649 const char *trans,
24650 const ptrdiff_t *n,
24651 const ptrdiff_t *nrhs,
24652 const double *a,
24653 const ptrdiff_t *lda,
24654 const ptrdiff_t *ipiv,
24655 double *b,
24656 const ptrdiff_t *ldb,
24657 ptrdiff_t *info
24658);
24659
24660/* Source: zgetsls.f */
24661#define zgetsls FORTRAN_WRAPPER(zgetsls)
24662extern void zgetsls(
24663 const char *trans,
24664 const ptrdiff_t *m,
24665 const ptrdiff_t *n,
24666 const ptrdiff_t *nrhs,
24667 double *a,
24668 const ptrdiff_t *lda,
24669 double *b,
24670 const ptrdiff_t *ldb,
24671 double *work,
24672 const ptrdiff_t *lwork,
24673 ptrdiff_t *info
24674);
24675
24676/* Source: zggbak.f */
24677#define zggbak FORTRAN_WRAPPER(zggbak)
24678extern void zggbak(
24679 const char *job,
24680 const char *side,
24681 const ptrdiff_t *n,
24682 const ptrdiff_t *ilo,
24683 const ptrdiff_t *ihi,
24684 const double *lscale,
24685 const double *rscale,
24686 const ptrdiff_t *m,
24687 double *v,
24688 const ptrdiff_t *ldv,
24689 ptrdiff_t *info
24690);
24691
24692/* Source: zggbal.f */
24693#define zggbal FORTRAN_WRAPPER(zggbal)
24694extern void zggbal(
24695 const char *job,
24696 const ptrdiff_t *n,
24697 double *a,
24698 const ptrdiff_t *lda,
24699 double *b,
24700 const ptrdiff_t *ldb,
24701 ptrdiff_t *ilo,
24702 ptrdiff_t *ihi,
24703 double *lscale,
24704 double *rscale,
24705 double *work,
24706 ptrdiff_t *info
24707);
24708
24709/* Source: zgges.f */
24710#define zgges FORTRAN_WRAPPER(zgges)
24711extern void zgges(
24712 const char *jobvsl,
24713 const char *jobvsr,
24714 const char *sort,
24715 ptrdiff_t (*selctg)(),
24716 const ptrdiff_t *n,
24717 double *a,
24718 const ptrdiff_t *lda,
24719 double *b,
24720 const ptrdiff_t *ldb,
24721 ptrdiff_t *sdim,
24722 double *alpha,
24723 double *beta,
24724 double *vsl,
24725 const ptrdiff_t *ldvsl,
24726 double *vsr,
24727 const ptrdiff_t *ldvsr,
24728 double *work,
24729 const ptrdiff_t *lwork,
24730 double *rwork,
24731 ptrdiff_t *bwork,
24732 ptrdiff_t *info
24733);
24734
24735/* Source: zgges3.f */
24736#define zgges3 FORTRAN_WRAPPER(zgges3)
24737extern void zgges3(
24738 const char *jobvsl,
24739 const char *jobvsr,
24740 const char *sort,
24741 ptrdiff_t (*selctg)(),
24742 const ptrdiff_t *n,
24743 double *a,
24744 const ptrdiff_t *lda,
24745 double *b,
24746 const ptrdiff_t *ldb,
24747 ptrdiff_t *sdim,
24748 double *alpha,
24749 double *beta,
24750 double *vsl,
24751 const ptrdiff_t *ldvsl,
24752 double *vsr,
24753 const ptrdiff_t *ldvsr,
24754 double *work,
24755 const ptrdiff_t *lwork,
24756 double *rwork,
24757 ptrdiff_t *bwork,
24758 ptrdiff_t *info
24759);
24760
24761/* Source: zggesx.f */
24762#define zggesx FORTRAN_WRAPPER(zggesx)
24763extern void zggesx(
24764 const char *jobvsl,
24765 const char *jobvsr,
24766 const char *sort,
24767 ptrdiff_t (*selctg)(),
24768 const char *sense,
24769 const ptrdiff_t *n,
24770 double *a,
24771 const ptrdiff_t *lda,
24772 double *b,
24773 const ptrdiff_t *ldb,
24774 ptrdiff_t *sdim,
24775 double *alpha,
24776 double *beta,
24777 double *vsl,
24778 const ptrdiff_t *ldvsl,
24779 double *vsr,
24780 const ptrdiff_t *ldvsr,
24781 double *rconde,
24782 double *rcondv,
24783 double *work,
24784 const ptrdiff_t *lwork,
24785 double *rwork,
24786 ptrdiff_t *iwork,
24787 const ptrdiff_t *liwork,
24788 ptrdiff_t *bwork,
24789 ptrdiff_t *info
24790);
24791
24792/* Source: zggev.f */
24793#define zggev FORTRAN_WRAPPER(zggev)
24794extern void zggev(
24795 const char *jobvl,
24796 const char *jobvr,
24797 const ptrdiff_t *n,
24798 double *a,
24799 const ptrdiff_t *lda,
24800 double *b,
24801 const ptrdiff_t *ldb,
24802 double *alpha,
24803 double *beta,
24804 double *vl,
24805 const ptrdiff_t *ldvl,
24806 double *vr,
24807 const ptrdiff_t *ldvr,
24808 double *work,
24809 const ptrdiff_t *lwork,
24810 double *rwork,
24811 ptrdiff_t *info
24812);
24813
24814/* Source: zggev3.f */
24815#define zggev3 FORTRAN_WRAPPER(zggev3)
24816extern void zggev3(
24817 const char *jobvl,
24818 const char *jobvr,
24819 const ptrdiff_t *n,
24820 double *a,
24821 const ptrdiff_t *lda,
24822 double *b,
24823 const ptrdiff_t *ldb,
24824 double *alpha,
24825 double *beta,
24826 double *vl,
24827 const ptrdiff_t *ldvl,
24828 double *vr,
24829 const ptrdiff_t *ldvr,
24830 double *work,
24831 const ptrdiff_t *lwork,
24832 double *rwork,
24833 ptrdiff_t *info
24834);
24835
24836/* Source: zggevx.f */
24837#define zggevx FORTRAN_WRAPPER(zggevx)
24838extern void zggevx(
24839 const char *balanc,
24840 const char *jobvl,
24841 const char *jobvr,
24842 const char *sense,
24843 const ptrdiff_t *n,
24844 double *a,
24845 const ptrdiff_t *lda,
24846 double *b,
24847 const ptrdiff_t *ldb,
24848 double *alpha,
24849 double *beta,
24850 double *vl,
24851 const ptrdiff_t *ldvl,
24852 double *vr,
24853 const ptrdiff_t *ldvr,
24854 ptrdiff_t *ilo,
24855 ptrdiff_t *ihi,
24856 double *lscale,
24857 double *rscale,
24858 double *abnrm,
24859 double *bbnrm,
24860 double *rconde,
24861 double *rcondv,
24862 double *work,
24863 const ptrdiff_t *lwork,
24864 double *rwork,
24865 ptrdiff_t *iwork,
24866 ptrdiff_t *bwork,
24867 ptrdiff_t *info
24868);
24869
24870/* Source: zggglm.f */
24871#define zggglm FORTRAN_WRAPPER(zggglm)
24872extern void zggglm(
24873 const ptrdiff_t *n,
24874 const ptrdiff_t *m,
24875 const ptrdiff_t *p,
24876 double *a,
24877 const ptrdiff_t *lda,
24878 double *b,
24879 const ptrdiff_t *ldb,
24880 double *d,
24881 double *x,
24882 double *y,
24883 double *work,
24884 const ptrdiff_t *lwork,
24885 ptrdiff_t *info
24886);
24887
24888/* Source: zgghd3.f */
24889#define zgghd3 FORTRAN_WRAPPER(zgghd3)
24890extern void zgghd3(
24891 const char *compq,
24892 const char *compz,
24893 const ptrdiff_t *n,
24894 const ptrdiff_t *ilo,
24895 const ptrdiff_t *ihi,
24896 double *a,
24897 const ptrdiff_t *lda,
24898 double *b,
24899 const ptrdiff_t *ldb,
24900 double *q,
24901 const ptrdiff_t *ldq,
24902 double *z,
24903 const ptrdiff_t *ldz,
24904 double *work,
24905 const ptrdiff_t *lwork,
24906 ptrdiff_t *info
24907);
24908
24909/* Source: zgghrd.f */
24910#define zgghrd FORTRAN_WRAPPER(zgghrd)
24911extern void zgghrd(
24912 const char *compq,
24913 const char *compz,
24914 const ptrdiff_t *n,
24915 const ptrdiff_t *ilo,
24916 const ptrdiff_t *ihi,
24917 double *a,
24918 const ptrdiff_t *lda,
24919 double *b,
24920 const ptrdiff_t *ldb,
24921 double *q,
24922 const ptrdiff_t *ldq,
24923 double *z,
24924 const ptrdiff_t *ldz,
24925 ptrdiff_t *info
24926);
24927
24928/* Source: zgglse.f */
24929#define zgglse FORTRAN_WRAPPER(zgglse)
24930extern void zgglse(
24931 const ptrdiff_t *m,
24932 const ptrdiff_t *n,
24933 const ptrdiff_t *p,
24934 double *a,
24935 const ptrdiff_t *lda,
24936 double *b,
24937 const ptrdiff_t *ldb,
24938 double *c,
24939 double *d,
24940 double *x,
24941 double *work,
24942 const ptrdiff_t *lwork,
24943 ptrdiff_t *info
24944);
24945
24946/* Source: zggqrf.f */
24947#define zggqrf FORTRAN_WRAPPER(zggqrf)
24948extern void zggqrf(
24949 const ptrdiff_t *n,
24950 const ptrdiff_t *m,
24951 const ptrdiff_t *p,
24952 double *a,
24953 const ptrdiff_t *lda,
24954 double *taua,
24955 double *b,
24956 const ptrdiff_t *ldb,
24957 double *taub,
24958 double *work,
24959 const ptrdiff_t *lwork,
24960 ptrdiff_t *info
24961);
24962
24963/* Source: zggrqf.f */
24964#define zggrqf FORTRAN_WRAPPER(zggrqf)
24965extern void zggrqf(
24966 const ptrdiff_t *m,
24967 const ptrdiff_t *p,
24968 const ptrdiff_t *n,
24969 double *a,
24970 const ptrdiff_t *lda,
24971 double *taua,
24972 double *b,
24973 const ptrdiff_t *ldb,
24974 double *taub,
24975 double *work,
24976 const ptrdiff_t *lwork,
24977 ptrdiff_t *info
24978);
24979
24980/* Source: zggsvd3.f */
24981#define zggsvd3 FORTRAN_WRAPPER(zggsvd3)
24982extern void zggsvd3(
24983 const char *jobu,
24984 const char *jobv,
24985 const char *jobq,
24986 const ptrdiff_t *m,
24987 const ptrdiff_t *n,
24988 const ptrdiff_t *p,
24989 ptrdiff_t *k,
24990 ptrdiff_t *l,
24991 double *a,
24992 const ptrdiff_t *lda,
24993 double *b,
24994 const ptrdiff_t *ldb,
24995 double *alpha,
24996 double *beta,
24997 double *u,
24998 const ptrdiff_t *ldu,
24999 double *v,
25000 const ptrdiff_t *ldv,
25001 double *q,
25002 const ptrdiff_t *ldq,
25003 double *work,
25004 const ptrdiff_t *lwork,
25005 double *rwork,
25006 ptrdiff_t *iwork,
25007 ptrdiff_t *info
25008);
25009
25010/* Source: zggsvp3.f */
25011#define zggsvp3 FORTRAN_WRAPPER(zggsvp3)
25012extern void zggsvp3(
25013 const char *jobu,
25014 const char *jobv,
25015 const char *jobq,
25016 const ptrdiff_t *m,
25017 const ptrdiff_t *p,
25018 const ptrdiff_t *n,
25019 double *a,
25020 const ptrdiff_t *lda,
25021 double *b,
25022 const ptrdiff_t *ldb,
25023 const double *tola,
25024 const double *tolb,
25025 ptrdiff_t *k,
25026 ptrdiff_t *l,
25027 double *u,
25028 const ptrdiff_t *ldu,
25029 double *v,
25030 const ptrdiff_t *ldv,
25031 double *q,
25032 const ptrdiff_t *ldq,
25033 ptrdiff_t *iwork,
25034 double *rwork,
25035 double *tau,
25036 double *work,
25037 const ptrdiff_t *lwork,
25038 ptrdiff_t *info
25039);
25040
25041/* Source: zgsvj0.f */
25042#define zgsvj0 FORTRAN_WRAPPER(zgsvj0)
25043extern void zgsvj0(
25044 const char *jobv,
25045 const ptrdiff_t *m,
25046 const ptrdiff_t *n,
25047 double *a,
25048 const ptrdiff_t *lda,
25049 double *d,
25050 double *sva,
25051 const ptrdiff_t *mv,
25052 double *v,
25053 const ptrdiff_t *ldv,
25054 const double *eps,
25055 const double *sfmin,
25056 const double *tol,
25057 const ptrdiff_t *nsweep,
25058 double *work,
25059 const ptrdiff_t *lwork,
25060 ptrdiff_t *info
25061);
25062
25063/* Source: zgsvj1.f */
25064#define zgsvj1 FORTRAN_WRAPPER(zgsvj1)
25065extern void zgsvj1(
25066 const char *jobv,
25067 const ptrdiff_t *m,
25068 const ptrdiff_t *n,
25069 const ptrdiff_t *n1,
25070 double *a,
25071 const ptrdiff_t *lda,
25072 double *d,
25073 double *sva,
25074 const ptrdiff_t *mv,
25075 double *v,
25076 const ptrdiff_t *ldv,
25077 const double *eps,
25078 const double *sfmin,
25079 const double *tol,
25080 const ptrdiff_t *nsweep,
25081 double *work,
25082 const ptrdiff_t *lwork,
25083 ptrdiff_t *info
25084);
25085
25086/* Source: zgtcon.f */
25087#define zgtcon FORTRAN_WRAPPER(zgtcon)
25088extern void zgtcon(
25089 const char *norm,
25090 const ptrdiff_t *n,
25091 const double *dl,
25092 const double *d,
25093 const double *du,
25094 const double *du2,
25095 const ptrdiff_t *ipiv,
25096 const double *anorm,
25097 double *rcond,
25098 double *work,
25099 ptrdiff_t *info
25100);
25101
25102/* Source: zgtrfs.f */
25103#define zgtrfs FORTRAN_WRAPPER(zgtrfs)
25104extern void zgtrfs(
25105 const char *trans,
25106 const ptrdiff_t *n,
25107 const ptrdiff_t *nrhs,
25108 const double *dl,
25109 const double *d,
25110 const double *du,
25111 const double *dlf,
25112 const double *df,
25113 const double *duf,
25114 const double *du2,
25115 const ptrdiff_t *ipiv,
25116 const double *b,
25117 const ptrdiff_t *ldb,
25118 double *x,
25119 const ptrdiff_t *ldx,
25120 double *ferr,
25121 double *berr,
25122 double *work,
25123 double *rwork,
25124 ptrdiff_t *info
25125);
25126
25127/* Source: zgtsv.f */
25128#define zgtsv FORTRAN_WRAPPER(zgtsv)
25129extern void zgtsv(
25130 const ptrdiff_t *n,
25131 const ptrdiff_t *nrhs,
25132 double *dl,
25133 double *d,
25134 double *du,
25135 double *b,
25136 const ptrdiff_t *ldb,
25137 ptrdiff_t *info
25138);
25139
25140/* Source: zgtsvx.f */
25141#define zgtsvx FORTRAN_WRAPPER(zgtsvx)
25142extern void zgtsvx(
25143 const char *fact,
25144 const char *trans,
25145 const ptrdiff_t *n,
25146 const ptrdiff_t *nrhs,
25147 const double *dl,
25148 const double *d,
25149 const double *du,
25150 double *dlf,
25151 double *df,
25152 double *duf,
25153 double *du2,
25154 ptrdiff_t *ipiv,
25155 const double *b,
25156 const ptrdiff_t *ldb,
25157 double *x,
25158 const ptrdiff_t *ldx,
25159 double *rcond,
25160 double *ferr,
25161 double *berr,
25162 double *work,
25163 double *rwork,
25164 ptrdiff_t *info
25165);
25166
25167/* Source: zgttrf.f */
25168#define zgttrf FORTRAN_WRAPPER(zgttrf)
25169extern void zgttrf(
25170 const ptrdiff_t *n,
25171 double *dl,
25172 double *d,
25173 double *du,
25174 double *du2,
25175 ptrdiff_t *ipiv,
25176 ptrdiff_t *info
25177);
25178
25179/* Source: zgttrs.f */
25180#define zgttrs FORTRAN_WRAPPER(zgttrs)
25181extern void zgttrs(
25182 const char *trans,
25183 const ptrdiff_t *n,
25184 const ptrdiff_t *nrhs,
25185 const double *dl,
25186 const double *d,
25187 const double *du,
25188 const double *du2,
25189 const ptrdiff_t *ipiv,
25190 double *b,
25191 const ptrdiff_t *ldb,
25192 ptrdiff_t *info
25193);
25194
25195/* Source: zgtts2.f */
25196#define zgtts2 FORTRAN_WRAPPER(zgtts2)
25197extern void zgtts2(
25198 const ptrdiff_t *itrans,
25199 const ptrdiff_t *n,
25200 const ptrdiff_t *nrhs,
25201 const double *dl,
25202 const double *d,
25203 const double *du,
25204 const double *du2,
25205 const ptrdiff_t *ipiv,
25206 double *b,
25207 const ptrdiff_t *ldb
25208);
25209
25210/* Source: zhb2st_kernels.f */
25211#define zhb2st_kernels FORTRAN_WRAPPER(zhb2st_kernels)
25212extern void zhb2st_kernels(
25213 char *uplo,
25214 ptrdiff_t *wantz,
25215 ptrdiff_t *ttype,
25216 ptrdiff_t *st,
25217 ptrdiff_t *ed,
25218 ptrdiff_t *sweep,
25219 ptrdiff_t *n,
25220 ptrdiff_t *nb,
25221 ptrdiff_t *ib,
25222 double *a,
25223 ptrdiff_t *lda,
25224 double *v,
25225 double *tau,
25226 ptrdiff_t *ldvt,
25227 double *work
25228);
25229
25230/* Source: zhbev.f */
25231#define zhbev FORTRAN_WRAPPER(zhbev)
25232extern void zhbev(
25233 const char *jobz,
25234 const char *uplo,
25235 const ptrdiff_t *n,
25236 const ptrdiff_t *kd,
25237 double *ab,
25238 const ptrdiff_t *ldab,
25239 double *w,
25240 double *z,
25241 const ptrdiff_t *ldz,
25242 double *work,
25243 double *rwork,
25244 ptrdiff_t *info
25245);
25246
25247/* Source: zhbev_2stage.f */
25248#define zhbev_2stage FORTRAN_WRAPPER(zhbev_2stage)
25249extern void zhbev_2stage(
25250 char *jobz,
25251 char *uplo,
25252 ptrdiff_t *n,
25253 ptrdiff_t *kd,
25254 double *ab,
25255 ptrdiff_t *ldab,
25256 double *w,
25257 double *z,
25258 ptrdiff_t *ldz,
25259 double *work,
25260 ptrdiff_t *lwork,
25261 double *rwork,
25262 ptrdiff_t *info
25263);
25264
25265/* Source: zhbevd.f */
25266#define zhbevd FORTRAN_WRAPPER(zhbevd)
25267extern void zhbevd(
25268 const char *jobz,
25269 const char *uplo,
25270 const ptrdiff_t *n,
25271 const ptrdiff_t *kd,
25272 double *ab,
25273 const ptrdiff_t *ldab,
25274 double *w,
25275 double *z,
25276 const ptrdiff_t *ldz,
25277 double *work,
25278 const ptrdiff_t *lwork,
25279 double *rwork,
25280 const ptrdiff_t *lrwork,
25281 ptrdiff_t *iwork,
25282 const ptrdiff_t *liwork,
25283 ptrdiff_t *info
25284);
25285
25286/* Source: zhbevd_2stage.f */
25287#define zhbevd_2stage FORTRAN_WRAPPER(zhbevd_2stage)
25288extern void zhbevd_2stage(
25289 char *jobz,
25290 char *uplo,
25291 ptrdiff_t *n,
25292 ptrdiff_t *kd,
25293 double *ab,
25294 ptrdiff_t *ldab,
25295 double *w,
25296 double *z,
25297 ptrdiff_t *ldz,
25298 double *work,
25299 ptrdiff_t *lwork,
25300 double *rwork,
25301 ptrdiff_t *lrwork,
25302 ptrdiff_t *iwork,
25303 ptrdiff_t *liwork,
25304 ptrdiff_t *info
25305);
25306
25307/* Source: zhbevx.f */
25308#define zhbevx FORTRAN_WRAPPER(zhbevx)
25309extern void zhbevx(
25310 const char *jobz,
25311 const char *range,
25312 const char *uplo,
25313 const ptrdiff_t *n,
25314 const ptrdiff_t *kd,
25315 double *ab,
25316 const ptrdiff_t *ldab,
25317 double *q,
25318 const ptrdiff_t *ldq,
25319 const double *vl,
25320 const double *vu,
25321 const ptrdiff_t *il,
25322 const ptrdiff_t *iu,
25323 const double *abstol,
25324 ptrdiff_t *m,
25325 double *w,
25326 double *z,
25327 const ptrdiff_t *ldz,
25328 double *work,
25329 double *rwork,
25330 ptrdiff_t *iwork,
25331 ptrdiff_t *ifail,
25332 ptrdiff_t *info
25333);
25334
25335/* Source: zhbevx_2stage.f */
25336#define zhbevx_2stage FORTRAN_WRAPPER(zhbevx_2stage)
25337extern void zhbevx_2stage(
25338 char *jobz,
25339 char *range,
25340 char *uplo,
25341 ptrdiff_t *n,
25342 ptrdiff_t *kd,
25343 double *ab,
25344 ptrdiff_t *ldab,
25345 double *q,
25346 ptrdiff_t *ldq,
25347 double *vl,
25348 double *vu,
25349 ptrdiff_t *il,
25350 ptrdiff_t *iu,
25351 double *abstol,
25352 ptrdiff_t *m,
25353 double *w,
25354 double *z,
25355 ptrdiff_t *ldz,
25356 double *work,
25357 ptrdiff_t *lwork,
25358 double *rwork,
25359 ptrdiff_t *iwork,
25360 ptrdiff_t *ifail,
25361 ptrdiff_t *info
25362);
25363
25364/* Source: zhbgst.f */
25365#define zhbgst FORTRAN_WRAPPER(zhbgst)
25366extern void zhbgst(
25367 const char *vect,
25368 const char *uplo,
25369 const ptrdiff_t *n,
25370 const ptrdiff_t *ka,
25371 const ptrdiff_t *kb,
25372 double *ab,
25373 const ptrdiff_t *ldab,
25374 const double *bb,
25375 const ptrdiff_t *ldbb,
25376 double *x,
25377 const ptrdiff_t *ldx,
25378 double *work,
25379 double *rwork,
25380 ptrdiff_t *info
25381);
25382
25383/* Source: zhbgv.f */
25384#define zhbgv FORTRAN_WRAPPER(zhbgv)
25385extern void zhbgv(
25386 const char *jobz,
25387 const char *uplo,
25388 const ptrdiff_t *n,
25389 const ptrdiff_t *ka,
25390 const ptrdiff_t *kb,
25391 double *ab,
25392 const ptrdiff_t *ldab,
25393 double *bb,
25394 const ptrdiff_t *ldbb,
25395 double *w,
25396 double *z,
25397 const ptrdiff_t *ldz,
25398 double *work,
25399 double *rwork,
25400 ptrdiff_t *info
25401);
25402
25403/* Source: zhbgvd.f */
25404#define zhbgvd FORTRAN_WRAPPER(zhbgvd)
25405extern void zhbgvd(
25406 const char *jobz,
25407 const char *uplo,
25408 const ptrdiff_t *n,
25409 const ptrdiff_t *ka,
25410 const ptrdiff_t *kb,
25411 double *ab,
25412 const ptrdiff_t *ldab,
25413 double *bb,
25414 const ptrdiff_t *ldbb,
25415 double *w,
25416 double *z,
25417 const ptrdiff_t *ldz,
25418 double *work,
25419 const ptrdiff_t *lwork,
25420 double *rwork,
25421 const ptrdiff_t *lrwork,
25422 ptrdiff_t *iwork,
25423 const ptrdiff_t *liwork,
25424 ptrdiff_t *info
25425);
25426
25427/* Source: zhbgvx.f */
25428#define zhbgvx FORTRAN_WRAPPER(zhbgvx)
25429extern void zhbgvx(
25430 const char *jobz,
25431 const char *range,
25432 const char *uplo,
25433 const ptrdiff_t *n,
25434 const ptrdiff_t *ka,
25435 const ptrdiff_t *kb,
25436 double *ab,
25437 const ptrdiff_t *ldab,
25438 double *bb,
25439 const ptrdiff_t *ldbb,
25440 double *q,
25441 const ptrdiff_t *ldq,
25442 const double *vl,
25443 const double *vu,
25444 const ptrdiff_t *il,
25445 const ptrdiff_t *iu,
25446 const double *abstol,
25447 ptrdiff_t *m,
25448 double *w,
25449 double *z,
25450 const ptrdiff_t *ldz,
25451 double *work,
25452 double *rwork,
25453 ptrdiff_t *iwork,
25454 ptrdiff_t *ifail,
25455 ptrdiff_t *info
25456);
25457
25458/* Source: zhbtrd.f */
25459#define zhbtrd FORTRAN_WRAPPER(zhbtrd)
25460extern void zhbtrd(
25461 const char *vect,
25462 const char *uplo,
25463 const ptrdiff_t *n,
25464 const ptrdiff_t *kd,
25465 double *ab,
25466 const ptrdiff_t *ldab,
25467 double *d,
25468 double *e,
25469 double *q,
25470 const ptrdiff_t *ldq,
25471 double *work,
25472 ptrdiff_t *info
25473);
25474
25475/* Source: zhecon.f */
25476#define zhecon FORTRAN_WRAPPER(zhecon)
25477extern void zhecon(
25478 const char *uplo,
25479 const ptrdiff_t *n,
25480 const double *a,
25481 const ptrdiff_t *lda,
25482 const ptrdiff_t *ipiv,
25483 const double *anorm,
25484 double *rcond,
25485 double *work,
25486 ptrdiff_t *info
25487);
25488
25489/* Source: zhecon_3.f */
25490#define zhecon_3 FORTRAN_WRAPPER(zhecon_3)
25491extern void zhecon_3(
25492 char *uplo,
25493 ptrdiff_t *n,
25494 double *a,
25495 ptrdiff_t *lda,
25496 double *e,
25497 ptrdiff_t *ipiv,
25498 double *anorm,
25499 double *rcond,
25500 double *work,
25501 ptrdiff_t *info
25502);
25503
25504/* Source: zhecon_rook.f */
25505#define zhecon_rook FORTRAN_WRAPPER(zhecon_rook)
25506extern void zhecon_rook(
25507 const char *uplo,
25508 const ptrdiff_t *n,
25509 const double *a,
25510 const ptrdiff_t *lda,
25511 const ptrdiff_t *ipiv,
25512 const double *anorm,
25513 double *rcond,
25514 double *work,
25515 ptrdiff_t *info
25516);
25517
25518/* Source: zheequb.f */
25519#define zheequb FORTRAN_WRAPPER(zheequb)
25520extern void zheequb(
25521 char *uplo,
25522 const ptrdiff_t *n,
25523 const double *a,
25524 const ptrdiff_t *lda,
25525 double *s,
25526 double *scond,
25527 double *amax,
25528 double *work,
25529 ptrdiff_t *info
25530);
25531
25532/* Source: zheev.f */
25533#define zheev FORTRAN_WRAPPER(zheev)
25534extern void zheev(
25535 const char *jobz,
25536 const char *uplo,
25537 const ptrdiff_t *n,
25538 double *a,
25539 const ptrdiff_t *lda,
25540 double *w,
25541 double *work,
25542 const ptrdiff_t *lwork,
25543 double *rwork,
25544 ptrdiff_t *info
25545);
25546
25547/* Source: zheev_2stage.f */
25548#define zheev_2stage FORTRAN_WRAPPER(zheev_2stage)
25549extern void zheev_2stage(
25550 char *jobz,
25551 char *uplo,
25552 ptrdiff_t *n,
25553 double *a,
25554 ptrdiff_t *lda,
25555 double *w,
25556 double *work,
25557 ptrdiff_t *lwork,
25558 double *rwork,
25559 ptrdiff_t *info
25560);
25561
25562/* Source: zheevd.f */
25563#define zheevd FORTRAN_WRAPPER(zheevd)
25564extern void zheevd(
25565 const char *jobz,
25566 const char *uplo,
25567 const ptrdiff_t *n,
25568 double *a,
25569 const ptrdiff_t *lda,
25570 double *w,
25571 double *work,
25572 const ptrdiff_t *lwork,
25573 double *rwork,
25574 const ptrdiff_t *lrwork,
25575 ptrdiff_t *iwork,
25576 const ptrdiff_t *liwork,
25577 ptrdiff_t *info
25578);
25579
25580/* Source: zheevd_2stage.f */
25581#define zheevd_2stage FORTRAN_WRAPPER(zheevd_2stage)
25582extern void zheevd_2stage(
25583 char *jobz,
25584 char *uplo,
25585 ptrdiff_t *n,
25586 double *a,
25587 ptrdiff_t *lda,
25588 double *w,
25589 double *work,
25590 ptrdiff_t *lwork,
25591 double *rwork,
25592 ptrdiff_t *lrwork,
25593 ptrdiff_t *iwork,
25594 ptrdiff_t *liwork,
25595 ptrdiff_t *info
25596);
25597
25598/* Source: zheevr.f */
25599#define zheevr FORTRAN_WRAPPER(zheevr)
25600extern void zheevr(
25601 const char *jobz,
25602 const char *range,
25603 const char *uplo,
25604 const ptrdiff_t *n,
25605 double *a,
25606 const ptrdiff_t *lda,
25607 const double *vl,
25608 const double *vu,
25609 const ptrdiff_t *il,
25610 const ptrdiff_t *iu,
25611 const double *abstol,
25612 ptrdiff_t *m,
25613 double *w,
25614 double *z,
25615 const ptrdiff_t *ldz,
25616 ptrdiff_t *isuppz,
25617 double *work,
25618 const ptrdiff_t *lwork,
25619 double *rwork,
25620 const ptrdiff_t *lrwork,
25621 ptrdiff_t *iwork,
25622 const ptrdiff_t *liwork,
25623 ptrdiff_t *info
25624);
25625
25626/* Source: zheevr_2stage.f */
25627#define zheevr_2stage FORTRAN_WRAPPER(zheevr_2stage)
25628extern void zheevr_2stage(
25629 char *jobz,
25630 char *range,
25631 char *uplo,
25632 ptrdiff_t *n,
25633 double *a,
25634 ptrdiff_t *lda,
25635 double *vl,
25636 double *vu,
25637 ptrdiff_t *il,
25638 ptrdiff_t *iu,
25639 double *abstol,
25640 ptrdiff_t *m,
25641 double *w,
25642 double *z,
25643 ptrdiff_t *ldz,
25644 ptrdiff_t *isuppz,
25645 double *work,
25646 ptrdiff_t *lwork,
25647 double *rwork,
25648 ptrdiff_t *lrwork,
25649 ptrdiff_t *iwork,
25650 ptrdiff_t *liwork,
25651 ptrdiff_t *info
25652);
25653
25654/* Source: zheevx.f */
25655#define zheevx FORTRAN_WRAPPER(zheevx)
25656extern void zheevx(
25657 const char *jobz,
25658 const char *range,
25659 const char *uplo,
25660 const ptrdiff_t *n,
25661 double *a,
25662 const ptrdiff_t *lda,
25663 const double *vl,
25664 const double *vu,
25665 const ptrdiff_t *il,
25666 const ptrdiff_t *iu,
25667 const double *abstol,
25668 ptrdiff_t *m,
25669 double *w,
25670 double *z,
25671 const ptrdiff_t *ldz,
25672 double *work,
25673 const ptrdiff_t *lwork,
25674 double *rwork,
25675 ptrdiff_t *iwork,
25676 ptrdiff_t *ifail,
25677 ptrdiff_t *info
25678);
25679
25680/* Source: zheevx_2stage.f */
25681#define zheevx_2stage FORTRAN_WRAPPER(zheevx_2stage)
25682extern void zheevx_2stage(
25683 char *jobz,
25684 char *range,
25685 char *uplo,
25686 ptrdiff_t *n,
25687 double *a,
25688 ptrdiff_t *lda,
25689 double *vl,
25690 double *vu,
25691 ptrdiff_t *il,
25692 ptrdiff_t *iu,
25693 double *abstol,
25694 ptrdiff_t *m,
25695 double *w,
25696 double *z,
25697 ptrdiff_t *ldz,
25698 double *work,
25699 ptrdiff_t *lwork,
25700 double *rwork,
25701 ptrdiff_t *iwork,
25702 ptrdiff_t *ifail,
25703 ptrdiff_t *info
25704);
25705
25706/* Source: zhegs2.f */
25707#define zhegs2 FORTRAN_WRAPPER(zhegs2)
25708extern void zhegs2(
25709 const ptrdiff_t *itype,
25710 const char *uplo,
25711 const ptrdiff_t *n,
25712 double *a,
25713 const ptrdiff_t *lda,
25714 const double *b,
25715 const ptrdiff_t *ldb,
25716 ptrdiff_t *info
25717);
25718
25719/* Source: zhegst.f */
25720#define zhegst FORTRAN_WRAPPER(zhegst)
25721extern void zhegst(
25722 const ptrdiff_t *itype,
25723 const char *uplo,
25724 const ptrdiff_t *n,
25725 double *a,
25726 const ptrdiff_t *lda,
25727 const double *b,
25728 const ptrdiff_t *ldb,
25729 ptrdiff_t *info
25730);
25731
25732/* Source: zhegv.f */
25733#define zhegv FORTRAN_WRAPPER(zhegv)
25734extern void zhegv(
25735 const ptrdiff_t *itype,
25736 const char *jobz,
25737 const char *uplo,
25738 const ptrdiff_t *n,
25739 double *a,
25740 const ptrdiff_t *lda,
25741 double *b,
25742 const ptrdiff_t *ldb,
25743 double *w,
25744 double *work,
25745 const ptrdiff_t *lwork,
25746 double *rwork,
25747 ptrdiff_t *info
25748);
25749
25750/* Source: zhegv_2stage.f */
25751#define zhegv_2stage FORTRAN_WRAPPER(zhegv_2stage)
25752extern void zhegv_2stage(
25753 ptrdiff_t *itype,
25754 char *jobz,
25755 char *uplo,
25756 ptrdiff_t *n,
25757 double *a,
25758 ptrdiff_t *lda,
25759 double *b,
25760 ptrdiff_t *ldb,
25761 double *w,
25762 double *work,
25763 ptrdiff_t *lwork,
25764 double *rwork,
25765 ptrdiff_t *info
25766);
25767
25768/* Source: zhegvd.f */
25769#define zhegvd FORTRAN_WRAPPER(zhegvd)
25770extern void zhegvd(
25771 const ptrdiff_t *itype,
25772 const char *jobz,
25773 const char *uplo,
25774 const ptrdiff_t *n,
25775 double *a,
25776 const ptrdiff_t *lda,
25777 double *b,
25778 const ptrdiff_t *ldb,
25779 double *w,
25780 double *work,
25781 const ptrdiff_t *lwork,
25782 double *rwork,
25783 const ptrdiff_t *lrwork,
25784 ptrdiff_t *iwork,
25785 const ptrdiff_t *liwork,
25786 ptrdiff_t *info
25787);
25788
25789/* Source: zhegvx.f */
25790#define zhegvx FORTRAN_WRAPPER(zhegvx)
25791extern void zhegvx(
25792 const ptrdiff_t *itype,
25793 const char *jobz,
25794 const char *range,
25795 const char *uplo,
25796 const ptrdiff_t *n,
25797 double *a,
25798 const ptrdiff_t *lda,
25799 double *b,
25800 const ptrdiff_t *ldb,
25801 const double *vl,
25802 const double *vu,
25803 const ptrdiff_t *il,
25804 const ptrdiff_t *iu,
25805 const double *abstol,
25806 ptrdiff_t *m,
25807 double *w,
25808 double *z,
25809 const ptrdiff_t *ldz,
25810 double *work,
25811 const ptrdiff_t *lwork,
25812 double *rwork,
25813 ptrdiff_t *iwork,
25814 ptrdiff_t *ifail,
25815 ptrdiff_t *info
25816);
25817
25818/* Source: zherfs.f */
25819#define zherfs FORTRAN_WRAPPER(zherfs)
25820extern void zherfs(
25821 const char *uplo,
25822 const ptrdiff_t *n,
25823 const ptrdiff_t *nrhs,
25824 const double *a,
25825 const ptrdiff_t *lda,
25826 const double *af,
25827 const ptrdiff_t *ldaf,
25828 const ptrdiff_t *ipiv,
25829 const double *b,
25830 const ptrdiff_t *ldb,
25831 double *x,
25832 const ptrdiff_t *ldx,
25833 double *ferr,
25834 double *berr,
25835 double *work,
25836 double *rwork,
25837 ptrdiff_t *info
25838);
25839
25840/* Source: zhesv.f */
25841#define zhesv FORTRAN_WRAPPER(zhesv)
25842extern void zhesv(
25843 const char *uplo,
25844 const ptrdiff_t *n,
25845 const ptrdiff_t *nrhs,
25846 double *a,
25847 const ptrdiff_t *lda,
25848 ptrdiff_t *ipiv,
25849 double *b,
25850 const ptrdiff_t *ldb,
25851 double *work,
25852 const ptrdiff_t *lwork,
25853 ptrdiff_t *info
25854);
25855
25856/* Source: zhesv_aa.f */
25857#define zhesv_aa FORTRAN_WRAPPER(zhesv_aa)
25858extern void zhesv_aa(
25859 const char *uplo,
25860 const ptrdiff_t *n,
25861 const ptrdiff_t *nrhs,
25862 double *a,
25863 const ptrdiff_t *lda,
25864 ptrdiff_t *ipiv,
25865 double *b,
25866 const ptrdiff_t *ldb,
25867 double *work,
25868 const ptrdiff_t *lwork,
25869 ptrdiff_t *info
25870);
25871
25872/* Source: zhesv_rk.f */
25873#define zhesv_rk FORTRAN_WRAPPER(zhesv_rk)
25874extern void zhesv_rk(
25875 char *uplo,
25876 ptrdiff_t *n,
25877 ptrdiff_t *nrhs,
25878 double *a,
25879 ptrdiff_t *lda,
25880 double *e,
25881 ptrdiff_t *ipiv,
25882 double *b,
25883 ptrdiff_t *ldb,
25884 double *work,
25885 ptrdiff_t *lwork,
25886 ptrdiff_t *info
25887);
25888
25889/* Source: zhesv_rook.f */
25890#define zhesv_rook FORTRAN_WRAPPER(zhesv_rook)
25891extern void zhesv_rook(
25892 const char *uplo,
25893 const ptrdiff_t *n,
25894 const ptrdiff_t *nrhs,
25895 double *a,
25896 const ptrdiff_t *lda,
25897 ptrdiff_t *ipiv,
25898 double *b,
25899 const ptrdiff_t *ldb,
25900 double *work,
25901 const ptrdiff_t *lwork,
25902 ptrdiff_t *info
25903);
25904
25905/* Source: zhesvx.f */
25906#define zhesvx FORTRAN_WRAPPER(zhesvx)
25907extern void zhesvx(
25908 const char *fact,
25909 const char *uplo,
25910 const ptrdiff_t *n,
25911 const ptrdiff_t *nrhs,
25912 const double *a,
25913 const ptrdiff_t *lda,
25914 double *af,
25915 const ptrdiff_t *ldaf,
25916 ptrdiff_t *ipiv,
25917 const double *b,
25918 const ptrdiff_t *ldb,
25919 double *x,
25920 const ptrdiff_t *ldx,
25921 double *rcond,
25922 double *ferr,
25923 double *berr,
25924 double *work,
25925 const ptrdiff_t *lwork,
25926 double *rwork,
25927 ptrdiff_t *info
25928);
25929
25930/* Source: zheswapr.f */
25931#define zheswapr FORTRAN_WRAPPER(zheswapr)
25932extern void zheswapr(
25933 const char *uplo,
25934 const ptrdiff_t *n,
25935 double *a,
25936 const ptrdiff_t *lda,
25937 const ptrdiff_t *i1,
25938 const ptrdiff_t *i2
25939);
25940
25941/* Source: zhetd2.f */
25942#define zhetd2 FORTRAN_WRAPPER(zhetd2)
25943extern void zhetd2(
25944 const char *uplo,
25945 const ptrdiff_t *n,
25946 double *a,
25947 const ptrdiff_t *lda,
25948 double *d,
25949 double *e,
25950 double *tau,
25951 ptrdiff_t *info
25952);
25953
25954/* Source: zhetf2.f */
25955#define zhetf2 FORTRAN_WRAPPER(zhetf2)
25956extern void zhetf2(
25957 const char *uplo,
25958 const ptrdiff_t *n,
25959 double *a,
25960 const ptrdiff_t *lda,
25961 ptrdiff_t *ipiv,
25962 ptrdiff_t *info
25963);
25964
25965/* Source: zhetf2_rk.f */
25966#define zhetf2_rk FORTRAN_WRAPPER(zhetf2_rk)
25967extern void zhetf2_rk(
25968 char *uplo,
25969 ptrdiff_t *n,
25970 double *a,
25971 ptrdiff_t *lda,
25972 double *e,
25973 ptrdiff_t *ipiv,
25974 ptrdiff_t *info
25975);
25976
25977/* Source: zhetf2_rook.f */
25978#define zhetf2_rook FORTRAN_WRAPPER(zhetf2_rook)
25979extern void zhetf2_rook(
25980 const char *uplo,
25981 const ptrdiff_t *n,
25982 double *a,
25983 const ptrdiff_t *lda,
25984 ptrdiff_t *ipiv,
25985 ptrdiff_t *info
25986);
25987
25988/* Source: zhetrd.f */
25989#define zhetrd FORTRAN_WRAPPER(zhetrd)
25990extern void zhetrd(
25991 const char *uplo,
25992 const ptrdiff_t *n,
25993 double *a,
25994 const ptrdiff_t *lda,
25995 double *d,
25996 double *e,
25997 double *tau,
25998 double *work,
25999 const ptrdiff_t *lwork,
26000 ptrdiff_t *info
26001);
26002
26003/* Source: zhetrd_2stage.f */
26004#define zhetrd_2stage FORTRAN_WRAPPER(zhetrd_2stage)
26005extern void zhetrd_2stage(
26006 char *vect,
26007 char *uplo,
26008 ptrdiff_t *n,
26009 double *a,
26010 ptrdiff_t *lda,
26011 double *d,
26012 double *e,
26013 double *tau,
26014 double *hous2,
26015 ptrdiff_t *lhous2,
26016 double *work,
26017 ptrdiff_t *lwork,
26018 ptrdiff_t *info
26019);
26020
26021/* Source: zhetrd_hb2st.f */
26022#define zhetrd_hb2st FORTRAN_WRAPPER(zhetrd_hb2st)
26023extern void zhetrd_hb2st(
26024 char *stage1,
26025 char *vect,
26026 char *uplo,
26027 ptrdiff_t *n,
26028 ptrdiff_t *kd,
26029 double *ab,
26030 ptrdiff_t *ldab,
26031 double *d,
26032 double *e,
26033 double *hous,
26034 ptrdiff_t *lhous,
26035 double *work,
26036 ptrdiff_t *lwork,
26037 ptrdiff_t *info
26038);
26039
26040/* Source: zhetrd_he2hb.f */
26041#define zhetrd_he2hb FORTRAN_WRAPPER(zhetrd_he2hb)
26042extern void zhetrd_he2hb(
26043 char *uplo,
26044 ptrdiff_t *n,
26045 ptrdiff_t *kd,
26046 double *a,
26047 ptrdiff_t *lda,
26048 double *ab,
26049 ptrdiff_t *ldab,
26050 double *tau,
26051 double *work,
26052 ptrdiff_t *lwork,
26053 ptrdiff_t *info
26054);
26055
26056/* Source: zhetrf.f */
26057#define zhetrf FORTRAN_WRAPPER(zhetrf)
26058extern void zhetrf(
26059 const char *uplo,
26060 const ptrdiff_t *n,
26061 double *a,
26062 const ptrdiff_t *lda,
26063 ptrdiff_t *ipiv,
26064 double *work,
26065 const ptrdiff_t *lwork,
26066 ptrdiff_t *info
26067);
26068
26069/* Source: zhetrf_aa.f */
26070#define zhetrf_aa FORTRAN_WRAPPER(zhetrf_aa)
26071extern void zhetrf_aa(
26072 const char *uplo,
26073 const ptrdiff_t *n,
26074 double *a,
26075 const ptrdiff_t *lda,
26076 ptrdiff_t *ipiv,
26077 double *work,
26078 const ptrdiff_t *lwork,
26079 ptrdiff_t *info
26080);
26081
26082/* Source: zhetrf_rk.f */
26083#define zhetrf_rk FORTRAN_WRAPPER(zhetrf_rk)
26084extern void zhetrf_rk(
26085 char *uplo,
26086 ptrdiff_t *n,
26087 double *a,
26088 ptrdiff_t *lda,
26089 double *e,
26090 ptrdiff_t *ipiv,
26091 double *work,
26092 ptrdiff_t *lwork,
26093 ptrdiff_t *info
26094);
26095
26096/* Source: zhetrf_rook.f */
26097#define zhetrf_rook FORTRAN_WRAPPER(zhetrf_rook)
26098extern void zhetrf_rook(
26099 const char *uplo,
26100 const ptrdiff_t *n,
26101 double *a,
26102 const ptrdiff_t *lda,
26103 ptrdiff_t *ipiv,
26104 double *work,
26105 const ptrdiff_t *lwork,
26106 ptrdiff_t *info
26107);
26108
26109/* Source: zhetri.f */
26110#define zhetri FORTRAN_WRAPPER(zhetri)
26111extern void zhetri(
26112 const char *uplo,
26113 const ptrdiff_t *n,
26114 double *a,
26115 const ptrdiff_t *lda,
26116 const ptrdiff_t *ipiv,
26117 double *work,
26118 ptrdiff_t *info
26119);
26120
26121/* Source: zhetri2.f */
26122#define zhetri2 FORTRAN_WRAPPER(zhetri2)
26123extern void zhetri2(
26124 const char *uplo,
26125 const ptrdiff_t *n,
26126 double *a,
26127 const ptrdiff_t *lda,
26128 const ptrdiff_t *ipiv,
26129 double *work,
26130 const ptrdiff_t *lwork,
26131 ptrdiff_t *info
26132);
26133
26134/* Source: zhetri2x.f */
26135#define zhetri2x FORTRAN_WRAPPER(zhetri2x)
26136extern void zhetri2x(
26137 const char *uplo,
26138 const ptrdiff_t *n,
26139 double *a,
26140 const ptrdiff_t *lda,
26141 const ptrdiff_t *ipiv,
26142 double *work,
26143 const ptrdiff_t *nb,
26144 ptrdiff_t *info
26145);
26146
26147/* Source: zhetri_3.f */
26148#define zhetri_3 FORTRAN_WRAPPER(zhetri_3)
26149extern void zhetri_3(
26150 char *uplo,
26151 ptrdiff_t *n,
26152 double *a,
26153 ptrdiff_t *lda,
26154 double *e,
26155 ptrdiff_t *ipiv,
26156 double *work,
26157 ptrdiff_t *lwork,
26158 ptrdiff_t *info
26159);
26160
26161/* Source: zhetri_3x.f */
26162#define zhetri_3x FORTRAN_WRAPPER(zhetri_3x)
26163extern void zhetri_3x(
26164 char *uplo,
26165 ptrdiff_t *n,
26166 double *a,
26167 ptrdiff_t *lda,
26168 double *e,
26169 ptrdiff_t *ipiv,
26170 double *work,
26171 ptrdiff_t *nb,
26172 ptrdiff_t *info
26173);
26174
26175/* Source: zhetri_rook.f */
26176#define zhetri_rook FORTRAN_WRAPPER(zhetri_rook)
26177extern void zhetri_rook(
26178 const char *uplo,
26179 const ptrdiff_t *n,
26180 double *a,
26181 const ptrdiff_t *lda,
26182 const ptrdiff_t *ipiv,
26183 double *work,
26184 ptrdiff_t *info
26185);
26186
26187/* Source: zhetrs.f */
26188#define zhetrs FORTRAN_WRAPPER(zhetrs)
26189extern void zhetrs(
26190 const char *uplo,
26191 const ptrdiff_t *n,
26192 const ptrdiff_t *nrhs,
26193 const double *a,
26194 const ptrdiff_t *lda,
26195 const ptrdiff_t *ipiv,
26196 double *b,
26197 const ptrdiff_t *ldb,
26198 ptrdiff_t *info
26199);
26200
26201/* Source: zhetrs2.f */
26202#define zhetrs2 FORTRAN_WRAPPER(zhetrs2)
26203extern void zhetrs2(
26204 const char *uplo,
26205 const ptrdiff_t *n,
26206 const ptrdiff_t *nrhs,
26207 const double *a,
26208 const ptrdiff_t *lda,
26209 const ptrdiff_t *ipiv,
26210 double *b,
26211 const ptrdiff_t *ldb,
26212 double *work,
26213 ptrdiff_t *info
26214);
26215
26216/* Source: zhetrs_3.f */
26217#define zhetrs_3 FORTRAN_WRAPPER(zhetrs_3)
26218extern void zhetrs_3(
26219 char *uplo,
26220 ptrdiff_t *n,
26221 ptrdiff_t *nrhs,
26222 double *a,
26223 ptrdiff_t *lda,
26224 double *e,
26225 ptrdiff_t *ipiv,
26226 double *b,
26227 ptrdiff_t *ldb,
26228 ptrdiff_t *info
26229);
26230
26231/* Source: zhetrs_aa.f */
26232#define zhetrs_aa FORTRAN_WRAPPER(zhetrs_aa)
26233extern void zhetrs_aa(
26234 const char *uplo,
26235 const ptrdiff_t *n,
26236 const ptrdiff_t *nrhs,
26237 const double *a,
26238 const ptrdiff_t *lda,
26239 const ptrdiff_t *ipiv,
26240 double *b,
26241 const ptrdiff_t *ldb,
26242 const double *work,
26243 const ptrdiff_t *lwork,
26244 ptrdiff_t *info
26245);
26246
26247/* Source: zhetrs_rook.f */
26248#define zhetrs_rook FORTRAN_WRAPPER(zhetrs_rook)
26249extern void zhetrs_rook(
26250 const char *uplo,
26251 const ptrdiff_t *n,
26252 const ptrdiff_t *nrhs,
26253 const double *a,
26254 const ptrdiff_t *lda,
26255 const ptrdiff_t *ipiv,
26256 double *b,
26257 const ptrdiff_t *ldb,
26258 ptrdiff_t *info
26259);
26260
26261/* Source: zhfrk.f */
26262#define zhfrk FORTRAN_WRAPPER(zhfrk)
26263extern void zhfrk(
26264 const char *transr,
26265 const char *uplo,
26266 const char *trans,
26267 const ptrdiff_t *n,
26268 const ptrdiff_t *k,
26269 const double *alpha,
26270 const double *a,
26271 const ptrdiff_t *lda,
26272 const double *beta,
26273 double *c
26274);
26275
26276/* Source: zhgeqz.f */
26277#define zhgeqz FORTRAN_WRAPPER(zhgeqz)
26278extern void zhgeqz(
26279 const char *job,
26280 const char *compq,
26281 const char *compz,
26282 const ptrdiff_t *n,
26283 const ptrdiff_t *ilo,
26284 const ptrdiff_t *ihi,
26285 double *h,
26286 const ptrdiff_t *ldh,
26287 double *t,
26288 const ptrdiff_t *ldt,
26289 double *alpha,
26290 double *beta,
26291 double *q,
26292 const ptrdiff_t *ldq,
26293 double *z,
26294 const ptrdiff_t *ldz,
26295 double *work,
26296 const ptrdiff_t *lwork,
26297 double *rwork,
26298 ptrdiff_t *info
26299);
26300
26301/* Source: zhpcon.f */
26302#define zhpcon FORTRAN_WRAPPER(zhpcon)
26303extern void zhpcon(
26304 const char *uplo,
26305 const ptrdiff_t *n,
26306 const double *ap,
26307 const ptrdiff_t *ipiv,
26308 const double *anorm,
26309 double *rcond,
26310 double *work,
26311 ptrdiff_t *info
26312);
26313
26314/* Source: zhpev.f */
26315#define zhpev FORTRAN_WRAPPER(zhpev)
26316extern void zhpev(
26317 const char *jobz,
26318 const char *uplo,
26319 const ptrdiff_t *n,
26320 double *ap,
26321 double *w,
26322 double *z,
26323 const ptrdiff_t *ldz,
26324 double *work,
26325 double *rwork,
26326 ptrdiff_t *info
26327);
26328
26329/* Source: zhpevd.f */
26330#define zhpevd FORTRAN_WRAPPER(zhpevd)
26331extern void zhpevd(
26332 const char *jobz,
26333 const char *uplo,
26334 const ptrdiff_t *n,
26335 double *ap,
26336 double *w,
26337 double *z,
26338 const ptrdiff_t *ldz,
26339 double *work,
26340 const ptrdiff_t *lwork,
26341 double *rwork,
26342 const ptrdiff_t *lrwork,
26343 ptrdiff_t *iwork,
26344 const ptrdiff_t *liwork,
26345 ptrdiff_t *info
26346);
26347
26348/* Source: zhpevx.f */
26349#define zhpevx FORTRAN_WRAPPER(zhpevx)
26350extern void zhpevx(
26351 const char *jobz,
26352 const char *range,
26353 const char *uplo,
26354 const ptrdiff_t *n,
26355 double *ap,
26356 const double *vl,
26357 const double *vu,
26358 const ptrdiff_t *il,
26359 const ptrdiff_t *iu,
26360 const double *abstol,
26361 ptrdiff_t *m,
26362 double *w,
26363 double *z,
26364 const ptrdiff_t *ldz,
26365 double *work,
26366 double *rwork,
26367 ptrdiff_t *iwork,
26368 ptrdiff_t *ifail,
26369 ptrdiff_t *info
26370);
26371
26372/* Source: zhpgst.f */
26373#define zhpgst FORTRAN_WRAPPER(zhpgst)
26374extern void zhpgst(
26375 const ptrdiff_t *itype,
26376 const char *uplo,
26377 const ptrdiff_t *n,
26378 double *ap,
26379 const double *bp,
26380 ptrdiff_t *info
26381);
26382
26383/* Source: zhpgv.f */
26384#define zhpgv FORTRAN_WRAPPER(zhpgv)
26385extern void zhpgv(
26386 const ptrdiff_t *itype,
26387 const char *jobz,
26388 const char *uplo,
26389 const ptrdiff_t *n,
26390 double *ap,
26391 double *bp,
26392 double *w,
26393 double *z,
26394 const ptrdiff_t *ldz,
26395 double *work,
26396 double *rwork,
26397 ptrdiff_t *info
26398);
26399
26400/* Source: zhpgvd.f */
26401#define zhpgvd FORTRAN_WRAPPER(zhpgvd)
26402extern void zhpgvd(
26403 const ptrdiff_t *itype,
26404 const char *jobz,
26405 const char *uplo,
26406 const ptrdiff_t *n,
26407 double *ap,
26408 double *bp,
26409 double *w,
26410 double *z,
26411 const ptrdiff_t *ldz,
26412 double *work,
26413 const ptrdiff_t *lwork,
26414 double *rwork,
26415 const ptrdiff_t *lrwork,
26416 ptrdiff_t *iwork,
26417 const ptrdiff_t *liwork,
26418 ptrdiff_t *info
26419);
26420
26421/* Source: zhpgvx.f */
26422#define zhpgvx FORTRAN_WRAPPER(zhpgvx)
26423extern void zhpgvx(
26424 const ptrdiff_t *itype,
26425 const char *jobz,
26426 const char *range,
26427 const char *uplo,
26428 const ptrdiff_t *n,
26429 double *ap,
26430 double *bp,
26431 const double *vl,
26432 const double *vu,
26433 const ptrdiff_t *il,
26434 const ptrdiff_t *iu,
26435 const double *abstol,
26436 ptrdiff_t *m,
26437 double *w,
26438 double *z,
26439 const ptrdiff_t *ldz,
26440 double *work,
26441 double *rwork,
26442 ptrdiff_t *iwork,
26443 ptrdiff_t *ifail,
26444 ptrdiff_t *info
26445);
26446
26447/* Source: zhprfs.f */
26448#define zhprfs FORTRAN_WRAPPER(zhprfs)
26449extern void zhprfs(
26450 const char *uplo,
26451 const ptrdiff_t *n,
26452 const ptrdiff_t *nrhs,
26453 const double *ap,
26454 const double *afp,
26455 const ptrdiff_t *ipiv,
26456 const double *b,
26457 const ptrdiff_t *ldb,
26458 double *x,
26459 const ptrdiff_t *ldx,
26460 double *ferr,
26461 double *berr,
26462 double *work,
26463 double *rwork,
26464 ptrdiff_t *info
26465);
26466
26467/* Source: zhpsv.f */
26468#define zhpsv FORTRAN_WRAPPER(zhpsv)
26469extern void zhpsv(
26470 const char *uplo,
26471 const ptrdiff_t *n,
26472 const ptrdiff_t *nrhs,
26473 double *ap,
26474 ptrdiff_t *ipiv,
26475 double *b,
26476 const ptrdiff_t *ldb,
26477 ptrdiff_t *info
26478);
26479
26480/* Source: zhpsvx.f */
26481#define zhpsvx FORTRAN_WRAPPER(zhpsvx)
26482extern void zhpsvx(
26483 const char *fact,
26484 const char *uplo,
26485 const ptrdiff_t *n,
26486 const ptrdiff_t *nrhs,
26487 const double *ap,
26488 double *afp,
26489 ptrdiff_t *ipiv,
26490 const double *b,
26491 const ptrdiff_t *ldb,
26492 double *x,
26493 const ptrdiff_t *ldx,
26494 double *rcond,
26495 double *ferr,
26496 double *berr,
26497 double *work,
26498 double *rwork,
26499 ptrdiff_t *info
26500);
26501
26502/* Source: zhptrd.f */
26503#define zhptrd FORTRAN_WRAPPER(zhptrd)
26504extern void zhptrd(
26505 const char *uplo,
26506 const ptrdiff_t *n,
26507 double *ap,
26508 double *d,
26509 double *e,
26510 double *tau,
26511 ptrdiff_t *info
26512);
26513
26514/* Source: zhptrf.f */
26515#define zhptrf FORTRAN_WRAPPER(zhptrf)
26516extern void zhptrf(
26517 const char *uplo,
26518 const ptrdiff_t *n,
26519 double *ap,
26520 ptrdiff_t *ipiv,
26521 ptrdiff_t *info
26522);
26523
26524/* Source: zhptri.f */
26525#define zhptri FORTRAN_WRAPPER(zhptri)
26526extern void zhptri(
26527 const char *uplo,
26528 const ptrdiff_t *n,
26529 double *ap,
26530 const ptrdiff_t *ipiv,
26531 double *work,
26532 ptrdiff_t *info
26533);
26534
26535/* Source: zhptrs.f */
26536#define zhptrs FORTRAN_WRAPPER(zhptrs)
26537extern void zhptrs(
26538 const char *uplo,
26539 const ptrdiff_t *n,
26540 const ptrdiff_t *nrhs,
26541 const double *ap,
26542 const ptrdiff_t *ipiv,
26543 double *b,
26544 const ptrdiff_t *ldb,
26545 ptrdiff_t *info
26546);
26547
26548/* Source: zhsein.f */
26549#define zhsein FORTRAN_WRAPPER(zhsein)
26550extern void zhsein(
26551 const char *side,
26552 const char *eigsrc,
26553 const char *initv,
26554 const ptrdiff_t *select,
26555 const ptrdiff_t *n,
26556 const double *h,
26557 const ptrdiff_t *ldh,
26558 double *w,
26559 double *vl,
26560 const ptrdiff_t *ldvl,
26561 double *vr,
26562 const ptrdiff_t *ldvr,
26563 const ptrdiff_t *mm,
26564 ptrdiff_t *m,
26565 double *work,
26566 double *rwork,
26567 ptrdiff_t *ifaill,
26568 ptrdiff_t *ifailr,
26569 ptrdiff_t *info
26570);
26571
26572/* Source: zhseqr.f */
26573#define zhseqr FORTRAN_WRAPPER(zhseqr)
26574extern void zhseqr(
26575 const char *job,
26576 const char *compz,
26577 const ptrdiff_t *n,
26578 const ptrdiff_t *ilo,
26579 const ptrdiff_t *ihi,
26580 double *h,
26581 const ptrdiff_t *ldh,
26582 double *w,
26583 double *z,
26584 const ptrdiff_t *ldz,
26585 double *work,
26586 const ptrdiff_t *lwork,
26587 ptrdiff_t *info
26588);
26589
26590/* Source: zlabrd.f */
26591#define zlabrd FORTRAN_WRAPPER(zlabrd)
26592extern void zlabrd(
26593 const ptrdiff_t *m,
26594 const ptrdiff_t *n,
26595 const ptrdiff_t *nb,
26596 double *a,
26597 const ptrdiff_t *lda,
26598 double *d,
26599 double *e,
26600 double *tauq,
26601 double *taup,
26602 double *x,
26603 const ptrdiff_t *ldx,
26604 double *y,
26605 const ptrdiff_t *ldy
26606);
26607
26608/* Source: zlacgv.f */
26609#define zlacgv FORTRAN_WRAPPER(zlacgv)
26610extern void zlacgv(
26611 const ptrdiff_t *n,
26612 double *x,
26613 const ptrdiff_t *incx
26614);
26615
26616/* Source: zlacn2.f */
26617#define zlacn2 FORTRAN_WRAPPER(zlacn2)
26618extern void zlacn2(
26619 const ptrdiff_t *n,
26620 double *v,
26621 double *x,
26622 double *est,
26623 ptrdiff_t *kase,
26624 ptrdiff_t *isave
26625);
26626
26627/* Source: zlacon.f */
26628#define zlacon FORTRAN_WRAPPER(zlacon)
26629extern void zlacon(
26630 const ptrdiff_t *n,
26631 double *v,
26632 double *x,
26633 double *est,
26634 ptrdiff_t *kase
26635);
26636
26637/* Source: zlacp2.f */
26638#define zlacp2 FORTRAN_WRAPPER(zlacp2)
26639extern void zlacp2(
26640 const char *uplo,
26641 const ptrdiff_t *m,
26642 const ptrdiff_t *n,
26643 const double *a,
26644 const ptrdiff_t *lda,
26645 double *b,
26646 const ptrdiff_t *ldb
26647);
26648
26649/* Source: zlacpy.f */
26650#define zlacpy FORTRAN_WRAPPER(zlacpy)
26651extern void zlacpy(
26652 const char *uplo,
26653 const ptrdiff_t *m,
26654 const ptrdiff_t *n,
26655 const double *a,
26656 const ptrdiff_t *lda,
26657 double *b,
26658 const ptrdiff_t *ldb
26659);
26660
26661/* Source: zlacrm.f */
26662#define zlacrm FORTRAN_WRAPPER(zlacrm)
26663extern void zlacrm(
26664 const ptrdiff_t *m,
26665 const ptrdiff_t *n,
26666 const double *a,
26667 const ptrdiff_t *lda,
26668 const double *b,
26669 const ptrdiff_t *ldb,
26670 double *c,
26671 const ptrdiff_t *ldc,
26672 double *rwork
26673);
26674
26675/* Source: zlacrt.f */
26676#define zlacrt FORTRAN_WRAPPER(zlacrt)
26677extern void zlacrt(
26678 const ptrdiff_t *n,
26679 double *cx,
26680 const ptrdiff_t *incx,
26681 double *cy,
26682 const ptrdiff_t *incy,
26683 const double *c,
26684 const double *s
26685);
26686
26687/* Source: zladiv.f */
26688#define zladiv FORTRAN_WRAPPER(zladiv)
26689#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
26690extern doublecomplex zladiv(
26691#else
26692extern void zladiv(
26693 doublecomplex* retval,
26694#endif
26695 const double *x,
26696 const double *y
26697);
26698
26699/* Source: zlaed0.f */
26700#define zlaed0 FORTRAN_WRAPPER(zlaed0)
26701extern void zlaed0(
26702 const ptrdiff_t *qsiz,
26703 const ptrdiff_t *n,
26704 double *d,
26705 double *e,
26706 double *q,
26707 const ptrdiff_t *ldq,
26708 double *qstore,
26709 const ptrdiff_t *ldqs,
26710 double *rwork,
26711 ptrdiff_t *iwork,
26712 ptrdiff_t *info
26713);
26714
26715/* Source: zlaed7.f */
26716#define zlaed7 FORTRAN_WRAPPER(zlaed7)
26717extern void zlaed7(
26718 const ptrdiff_t *n,
26719 const ptrdiff_t *cutpnt,
26720 const ptrdiff_t *qsiz,
26721 const ptrdiff_t *tlvls,
26722 const ptrdiff_t *curlvl,
26723 const ptrdiff_t *curpbm,
26724 double *d,
26725 double *q,
26726 const ptrdiff_t *ldq,
26727 const double *rho,
26728 ptrdiff_t *indxq,
26729 double *qstore,
26730 ptrdiff_t *qptr,
26731 const ptrdiff_t *prmptr,
26732 const ptrdiff_t *perm,
26733 const ptrdiff_t *givptr,
26734 const ptrdiff_t *givcol,
26735 const double *givnum,
26736 double *work,
26737 double *rwork,
26738 ptrdiff_t *iwork,
26739 ptrdiff_t *info
26740);
26741
26742/* Source: zlaed8.f */
26743#define zlaed8 FORTRAN_WRAPPER(zlaed8)
26744extern void zlaed8(
26745 ptrdiff_t *k,
26746 const ptrdiff_t *n,
26747 const ptrdiff_t *qsiz,
26748 double *q,
26749 const ptrdiff_t *ldq,
26750 double *d,
26751 double *rho,
26752 const ptrdiff_t *cutpnt,
26753 const double *z,
26754 double *dlamda,
26755 double *q2,
26756 const ptrdiff_t *ldq2,
26757 double *w,
26758 ptrdiff_t *indxp,
26759 ptrdiff_t *indx,
26760 const ptrdiff_t *indxq,
26761 ptrdiff_t *perm,
26762 ptrdiff_t *givptr,
26763 ptrdiff_t *givcol,
26764 double *givnum,
26765 ptrdiff_t *info
26766);
26767
26768/* Source: zlaein.f */
26769#define zlaein FORTRAN_WRAPPER(zlaein)
26770extern void zlaein(
26771 const ptrdiff_t *rightv,
26772 const ptrdiff_t *noinit,
26773 const ptrdiff_t *n,
26774 const double *h,
26775 const ptrdiff_t *ldh,
26776 const double *w,
26777 double *v,
26778 double *b,
26779 const ptrdiff_t *ldb,
26780 double *rwork,
26781 const double *eps3,
26782 const double *smlnum,
26783 ptrdiff_t *info
26784);
26785
26786/* Source: zlaesy.f */
26787#define zlaesy FORTRAN_WRAPPER(zlaesy)
26788extern void zlaesy(
26789 const double *a,
26790 const double *b,
26791 const double *c,
26792 double *rt1,
26793 double *rt2,
26794 double *evscal,
26795 double *cs1,
26796 double *sn1
26797);
26798
26799/* Source: zlaev2.f */
26800#define zlaev2 FORTRAN_WRAPPER(zlaev2)
26801extern void zlaev2(
26802 const double *a,
26803 const double *b,
26804 const double *c,
26805 double *rt1,
26806 double *rt2,
26807 double *cs1,
26808 double *sn1
26809);
26810
26811/* Source: zlag2c.f */
26812#define zlag2c FORTRAN_WRAPPER(zlag2c)
26813extern void zlag2c(
26814 const ptrdiff_t *m,
26815 const ptrdiff_t *n,
26816 const double *a,
26817 const ptrdiff_t *lda,
26818 float *sa,
26819 const ptrdiff_t *ldsa,
26820 ptrdiff_t *info
26821);
26822
26823/* Source: zlags2.f */
26824#define zlags2 FORTRAN_WRAPPER(zlags2)
26825extern void zlags2(
26826 const ptrdiff_t *upper,
26827 const double *a1,
26828 const double *a2,
26829 const double *a3,
26830 const double *b1,
26831 const double *b2,
26832 const double *b3,
26833 double *csu,
26834 double *snu,
26835 double *csv,
26836 double *snv,
26837 double *csq,
26838 double *snq
26839);
26840
26841/* Source: zlagtm.f */
26842#define zlagtm FORTRAN_WRAPPER(zlagtm)
26843extern void zlagtm(
26844 const char *trans,
26845 const ptrdiff_t *n,
26846 const ptrdiff_t *nrhs,
26847 const double *alpha,
26848 const double *dl,
26849 const double *d,
26850 const double *du,
26851 const double *x,
26852 const ptrdiff_t *ldx,
26853 const double *beta,
26854 double *b,
26855 const ptrdiff_t *ldb
26856);
26857
26858/* Source: zlahef.f */
26859#define zlahef FORTRAN_WRAPPER(zlahef)
26860extern void zlahef(
26861 const char *uplo,
26862 const ptrdiff_t *n,
26863 const ptrdiff_t *nb,
26864 ptrdiff_t *kb,
26865 double *a,
26866 const ptrdiff_t *lda,
26867 ptrdiff_t *ipiv,
26868 double *w,
26869 const ptrdiff_t *ldw,
26870 ptrdiff_t *info
26871);
26872
26873/* Source: zlahef_aa.f */
26874#define zlahef_aa FORTRAN_WRAPPER(zlahef_aa)
26875extern void zlahef_aa(
26876 const char *uplo,
26877 const ptrdiff_t *j1_,
26878 const ptrdiff_t *m,
26879 const ptrdiff_t *nb,
26880 double *a,
26881 const ptrdiff_t *lda,
26882 ptrdiff_t *ipiv,
26883 double *h,
26884 const ptrdiff_t *ldh,
26885 double *work,
26886 ptrdiff_t *info
26887);
26888
26889/* Source: zlahef_rk.f */
26890#define zlahef_rk FORTRAN_WRAPPER(zlahef_rk)
26891extern void zlahef_rk(
26892 char *uplo,
26893 ptrdiff_t *n,
26894 ptrdiff_t *nb,
26895 ptrdiff_t *kb,
26896 double *a,
26897 ptrdiff_t *lda,
26898 double *e,
26899 ptrdiff_t *ipiv,
26900 double *w,
26901 ptrdiff_t *ldw,
26902 ptrdiff_t *info
26903);
26904
26905/* Source: zlahef_rook.f */
26906#define zlahef_rook FORTRAN_WRAPPER(zlahef_rook)
26907extern void zlahef_rook(
26908 const char *uplo,
26909 const ptrdiff_t *n,
26910 const ptrdiff_t *nb,
26911 ptrdiff_t *kb,
26912 double *a,
26913 const ptrdiff_t *lda,
26914 ptrdiff_t *ipiv,
26915 double *w,
26916 const ptrdiff_t *ldw,
26917 ptrdiff_t *info
26918);
26919
26920/* Source: zlahqr.f */
26921#define zlahqr FORTRAN_WRAPPER(zlahqr)
26922extern void zlahqr(
26923 const ptrdiff_t *wantt,
26924 const ptrdiff_t *wantz,
26925 const ptrdiff_t *n,
26926 const ptrdiff_t *ilo,
26927 const ptrdiff_t *ihi,
26928 double *h,
26929 const ptrdiff_t *ldh,
26930 double *w,
26931 const ptrdiff_t *iloz,
26932 const ptrdiff_t *ihiz,
26933 double *z,
26934 const ptrdiff_t *ldz,
26935 ptrdiff_t *info
26936);
26937
26938/* Source: zlahr2.f */
26939#define zlahr2 FORTRAN_WRAPPER(zlahr2)
26940extern void zlahr2(
26941 const ptrdiff_t *n,
26942 const ptrdiff_t *k,
26943 const ptrdiff_t *nb,
26944 double *a,
26945 const ptrdiff_t *lda,
26946 double *tau,
26947 double *t,
26948 const ptrdiff_t *ldt,
26949 double *y,
26950 const ptrdiff_t *ldy
26951);
26952
26953/* Source: zlaic1.f */
26954#define zlaic1 FORTRAN_WRAPPER(zlaic1)
26955extern void zlaic1(
26956 const ptrdiff_t *job,
26957 const ptrdiff_t *j,
26958 const double *x,
26959 const double *sest,
26960 const double *w,
26961 const double *gamma_,
26962 double *sestpr,
26963 double *s,
26964 double *c
26965);
26966
26967/* Source: zlals0.f */
26968#define zlals0 FORTRAN_WRAPPER(zlals0)
26969extern void zlals0(
26970 const ptrdiff_t *icompq,
26971 const ptrdiff_t *nl,
26972 const ptrdiff_t *nr,
26973 const ptrdiff_t *sqre,
26974 const ptrdiff_t *nrhs,
26975 double *b,
26976 const ptrdiff_t *ldb,
26977 double *bx,
26978 const ptrdiff_t *ldbx,
26979 const ptrdiff_t *perm,
26980 const ptrdiff_t *givptr,
26981 const ptrdiff_t *givcol,
26982 const ptrdiff_t *ldgcol,
26983 const double *givnum,
26984 const ptrdiff_t *ldgnum,
26985 const double *poles,
26986 const double *difl,
26987 const double *difr,
26988 const double *z,
26989 const ptrdiff_t *k,
26990 const double *c,
26991 const double *s,
26992 double *rwork,
26993 ptrdiff_t *info
26994);
26995
26996/* Source: zlalsa.f */
26997#define zlalsa FORTRAN_WRAPPER(zlalsa)
26998extern void zlalsa(
26999 const ptrdiff_t *icompq,
27000 const ptrdiff_t *smlsiz,
27001 const ptrdiff_t *n,
27002 const ptrdiff_t *nrhs,
27003 double *b,
27004 const ptrdiff_t *ldb,
27005 double *bx,
27006 const ptrdiff_t *ldbx,
27007 const double *u,
27008 const ptrdiff_t *ldu,
27009 const double *vt,
27010 const ptrdiff_t *k,
27011 const double *difl,
27012 const double *difr,
27013 const double *z,
27014 const double *poles,
27015 const ptrdiff_t *givptr,
27016 const ptrdiff_t *givcol,
27017 const ptrdiff_t *ldgcol,
27018 const ptrdiff_t *perm,
27019 const double *givnum,
27020 const double *c,
27021 const double *s,
27022 double *rwork,
27023 ptrdiff_t *iwork,
27024 ptrdiff_t *info
27025);
27026
27027/* Source: zlalsd.f */
27028#define zlalsd FORTRAN_WRAPPER(zlalsd)
27029extern void zlalsd(
27030 const char *uplo,
27031 const ptrdiff_t *smlsiz,
27032 const ptrdiff_t *n,
27033 const ptrdiff_t *nrhs,
27034 double *d,
27035 double *e,
27036 double *b,
27037 const ptrdiff_t *ldb,
27038 const double *rcond,
27039 ptrdiff_t *rank,
27040 double *work,
27041 double *rwork,
27042 ptrdiff_t *iwork,
27043 ptrdiff_t *info
27044);
27045
27046/* Source: zlamswlq.f */
27047#define zlamswlq FORTRAN_WRAPPER(zlamswlq)
27048extern void zlamswlq(
27049 const char *side,
27050 const char *trans,
27051 const ptrdiff_t *m,
27052 const ptrdiff_t *n,
27053 const ptrdiff_t *k,
27054 const ptrdiff_t *mb,
27055 const ptrdiff_t *nb,
27056 double *a,
27057 const ptrdiff_t *lda,
27058 const double *t,
27059 const ptrdiff_t *ldt,
27060 double *c,
27061 const ptrdiff_t *ldc,
27062 double *work,
27063 const ptrdiff_t *lwork,
27064 ptrdiff_t *info
27065);
27066
27067/* Source: zlamtsqr.f */
27068#define zlamtsqr FORTRAN_WRAPPER(zlamtsqr)
27069extern void zlamtsqr(
27070 const char *side,
27071 const char *trans,
27072 const ptrdiff_t *m,
27073 const ptrdiff_t *n,
27074 const ptrdiff_t *k,
27075 const ptrdiff_t *mb,
27076 const ptrdiff_t *nb,
27077 double *a,
27078 const ptrdiff_t *lda,
27079 const double *t,
27080 const ptrdiff_t *ldt,
27081 double *c,
27082 const ptrdiff_t *ldc,
27083 double *work,
27084 const ptrdiff_t *lwork,
27085 ptrdiff_t *info
27086);
27087
27088/* Source: zlangb.f */
27089#define zlangb FORTRAN_WRAPPER(zlangb)
27090extern double zlangb(
27091 const char *norm,
27092 const ptrdiff_t *n,
27093 const ptrdiff_t *kl,
27094 const ptrdiff_t *ku,
27095 const double *ab,
27096 const ptrdiff_t *ldab,
27097 double *work
27098);
27099
27100/* Source: zlange.f */
27101#define zlange FORTRAN_WRAPPER(zlange)
27102extern double zlange(
27103 const char *norm,
27104 const ptrdiff_t *m,
27105 const ptrdiff_t *n,
27106 const double *a,
27107 const ptrdiff_t *lda,
27108 double *work
27109);
27110
27111/* Source: zlangt.f */
27112#define zlangt FORTRAN_WRAPPER(zlangt)
27113extern double zlangt(
27114 const char *norm,
27115 const ptrdiff_t *n,
27116 const double *dl,
27117 const double *d,
27118 const double *du
27119);
27120
27121/* Source: zlanhb.f */
27122#define zlanhb FORTRAN_WRAPPER(zlanhb)
27123extern double zlanhb(
27124 const char *norm,
27125 const char *uplo,
27126 const ptrdiff_t *n,
27127 const ptrdiff_t *k,
27128 const double *ab,
27129 const ptrdiff_t *ldab,
27130 double *work
27131);
27132
27133/* Source: zlanhe.f */
27134#define zlanhe FORTRAN_WRAPPER(zlanhe)
27135extern double zlanhe(
27136 const char *norm,
27137 const char *uplo,
27138 const ptrdiff_t *n,
27139 const double *a,
27140 const ptrdiff_t *lda,
27141 double *work
27142);
27143
27144/* Source: zlanhf.f */
27145#define zlanhf FORTRAN_WRAPPER(zlanhf)
27146extern double zlanhf(
27147 const char *norm,
27148 const char *transr,
27149 const char *uplo,
27150 const ptrdiff_t *n,
27151 const double *a,
27152 double *work
27153);
27154
27155/* Source: zlanhp.f */
27156#define zlanhp FORTRAN_WRAPPER(zlanhp)
27157extern double zlanhp(
27158 const char *norm,
27159 const char *uplo,
27160 const ptrdiff_t *n,
27161 const double *ap,
27162 double *work
27163);
27164
27165/* Source: zlanhs.f */
27166#define zlanhs FORTRAN_WRAPPER(zlanhs)
27167extern double zlanhs(
27168 const char *norm,
27169 const ptrdiff_t *n,
27170 const double *a,
27171 const ptrdiff_t *lda,
27172 double *work
27173);
27174
27175/* Source: zlanht.f */
27176#define zlanht FORTRAN_WRAPPER(zlanht)
27177extern double zlanht(
27178 const char *norm,
27179 const ptrdiff_t *n,
27180 const double *d,
27181 const double *e
27182);
27183
27184/* Source: zlansb.f */
27185#define zlansb FORTRAN_WRAPPER(zlansb)
27186extern double zlansb(
27187 const char *norm,
27188 const char *uplo,
27189 const ptrdiff_t *n,
27190 const ptrdiff_t *k,
27191 const double *ab,
27192 const ptrdiff_t *ldab,
27193 double *work
27194);
27195
27196/* Source: zlansp.f */
27197#define zlansp FORTRAN_WRAPPER(zlansp)
27198extern double zlansp(
27199 const char *norm,
27200 const char *uplo,
27201 const ptrdiff_t *n,
27202 const double *ap,
27203 double *work
27204);
27205
27206/* Source: zlansy.f */
27207#define zlansy FORTRAN_WRAPPER(zlansy)
27208extern double zlansy(
27209 const char *norm,
27210 const char *uplo,
27211 const ptrdiff_t *n,
27212 const double *a,
27213 const ptrdiff_t *lda,
27214 double *work
27215);
27216
27217/* Source: zlantb.f */
27218#define zlantb FORTRAN_WRAPPER(zlantb)
27219extern double zlantb(
27220 const char *norm,
27221 const char *uplo,
27222 const char *diag,
27223 const ptrdiff_t *n,
27224 const ptrdiff_t *k,
27225 const double *ab,
27226 const ptrdiff_t *ldab,
27227 double *work
27228);
27229
27230/* Source: zlantp.f */
27231#define zlantp FORTRAN_WRAPPER(zlantp)
27232extern double zlantp(
27233 const char *norm,
27234 const char *uplo,
27235 const char *diag,
27236 const ptrdiff_t *n,
27237 const double *ap,
27238 double *work
27239);
27240
27241/* Source: zlantr.f */
27242#define zlantr FORTRAN_WRAPPER(zlantr)
27243extern double zlantr(
27244 const char *norm,
27245 const char *uplo,
27246 const char *diag,
27247 const ptrdiff_t *m,
27248 const ptrdiff_t *n,
27249 const double *a,
27250 const ptrdiff_t *lda,
27251 double *work
27252);
27253
27254/* Source: zlapll.f */
27255#define zlapll FORTRAN_WRAPPER(zlapll)
27256extern void zlapll(
27257 const ptrdiff_t *n,
27258 double *x,
27259 const ptrdiff_t *incx,
27260 double *y,
27261 const ptrdiff_t *incy,
27262 double *ssmin
27263);
27264
27265/* Source: zlapmr.f */
27266#define zlapmr FORTRAN_WRAPPER(zlapmr)
27267extern void zlapmr(
27268 const ptrdiff_t *forwrd,
27269 const ptrdiff_t *m,
27270 const ptrdiff_t *n,
27271 double *x,
27272 const ptrdiff_t *ldx,
27273 ptrdiff_t *k
27274);
27275
27276/* Source: zlapmt.f */
27277#define zlapmt FORTRAN_WRAPPER(zlapmt)
27278extern void zlapmt(
27279 const ptrdiff_t *forwrd,
27280 const ptrdiff_t *m,
27281 const ptrdiff_t *n,
27282 double *x,
27283 const ptrdiff_t *ldx,
27284 ptrdiff_t *k
27285);
27286
27287/* Source: zlaqgb.f */
27288#define zlaqgb FORTRAN_WRAPPER(zlaqgb)
27289extern void zlaqgb(
27290 const ptrdiff_t *m,
27291 const ptrdiff_t *n,
27292 const ptrdiff_t *kl,
27293 const ptrdiff_t *ku,
27294 double *ab,
27295 const ptrdiff_t *ldab,
27296 const double *r,
27297 const double *c,
27298 const double *rowcnd,
27299 const double *colcnd,
27300 const double *amax,
27301 char *equed
27302);
27303
27304/* Source: zlaqge.f */
27305#define zlaqge FORTRAN_WRAPPER(zlaqge)
27306extern void zlaqge(
27307 const ptrdiff_t *m,
27308 const ptrdiff_t *n,
27309 double *a,
27310 const ptrdiff_t *lda,
27311 const double *r,
27312 const double *c,
27313 const double *rowcnd,
27314 const double *colcnd,
27315 const double *amax,
27316 char *equed
27317);
27318
27319/* Source: zlaqhb.f */
27320#define zlaqhb FORTRAN_WRAPPER(zlaqhb)
27321extern void zlaqhb(
27322 const char *uplo,
27323 const ptrdiff_t *n,
27324 const ptrdiff_t *kd,
27325 double *ab,
27326 const ptrdiff_t *ldab,
27327 double *s,
27328 const double *scond,
27329 const double *amax,
27330 char *equed
27331);
27332
27333/* Source: zlaqhe.f */
27334#define zlaqhe FORTRAN_WRAPPER(zlaqhe)
27335extern void zlaqhe(
27336 const char *uplo,
27337 const ptrdiff_t *n,
27338 double *a,
27339 const ptrdiff_t *lda,
27340 const double *s,
27341 const double *scond,
27342 const double *amax,
27343 char *equed
27344);
27345
27346/* Source: zlaqhp.f */
27347#define zlaqhp FORTRAN_WRAPPER(zlaqhp)
27348extern void zlaqhp(
27349 const char *uplo,
27350 const ptrdiff_t *n,
27351 double *ap,
27352 const double *s,
27353 const double *scond,
27354 const double *amax,
27355 char *equed
27356);
27357
27358/* Source: zlaqp2.f */
27359#define zlaqp2 FORTRAN_WRAPPER(zlaqp2)
27360extern void zlaqp2(
27361 const ptrdiff_t *m,
27362 const ptrdiff_t *n,
27363 const ptrdiff_t *offset,
27364 double *a,
27365 const ptrdiff_t *lda,
27366 ptrdiff_t *jpvt,
27367 double *tau,
27368 double *vn1,
27369 double *vn2,
27370 double *work
27371);
27372
27373/* Source: zlaqps.f */
27374#define zlaqps FORTRAN_WRAPPER(zlaqps)
27375extern void zlaqps(
27376 const ptrdiff_t *m,
27377 const ptrdiff_t *n,
27378 const ptrdiff_t *offset,
27379 const ptrdiff_t *nb,
27380 ptrdiff_t *kb,
27381 double *a,
27382 const ptrdiff_t *lda,
27383 ptrdiff_t *jpvt,
27384 double *tau,
27385 double *vn1,
27386 double *vn2,
27387 double *auxv,
27388 double *f,
27389 const ptrdiff_t *ldf
27390);
27391
27392/* Source: zlaqr0.f */
27393#define zlaqr0 FORTRAN_WRAPPER(zlaqr0)
27394extern void zlaqr0(
27395 const ptrdiff_t *wantt,
27396 const ptrdiff_t *wantz,
27397 const ptrdiff_t *n,
27398 const ptrdiff_t *ilo,
27399 const ptrdiff_t *ihi,
27400 double *h,
27401 const ptrdiff_t *ldh,
27402 double *w,
27403 ptrdiff_t *iloz,
27404 ptrdiff_t *ihiz,
27405 double *z,
27406 const ptrdiff_t *ldz,
27407 double *work,
27408 const ptrdiff_t *lwork,
27409 ptrdiff_t *info
27410);
27411
27412/* Source: zlaqr1.f */
27413#define zlaqr1 FORTRAN_WRAPPER(zlaqr1)
27414extern void zlaqr1(
27415 const ptrdiff_t *n,
27416 const double *h,
27417 const ptrdiff_t *ldh,
27418 const double *s1,
27419 double *s2,
27420 double *v
27421);
27422
27423/* Source: zlaqr2.f */
27424#define zlaqr2 FORTRAN_WRAPPER(zlaqr2)
27425extern void zlaqr2(
27426 const ptrdiff_t *wantt,
27427 const ptrdiff_t *wantz,
27428 const ptrdiff_t *n,
27429 const ptrdiff_t *ktop,
27430 const ptrdiff_t *kbot,
27431 const ptrdiff_t *nw,
27432 double *h,
27433 const ptrdiff_t *ldh,
27434 const ptrdiff_t *iloz,
27435 const ptrdiff_t *ihiz,
27436 double *z,
27437 const ptrdiff_t *ldz,
27438 ptrdiff_t *ns,
27439 ptrdiff_t *nd,
27440 double *sh,
27441 double *v,
27442 const ptrdiff_t *ldv,
27443 const ptrdiff_t *nh,
27444 double *t,
27445 const ptrdiff_t *ldt,
27446 const ptrdiff_t *nv,
27447 double *wv,
27448 const ptrdiff_t *ldwv,
27449 double *work,
27450 const ptrdiff_t *lwork
27451);
27452
27453/* Source: zlaqr3.f */
27454#define zlaqr3 FORTRAN_WRAPPER(zlaqr3)
27455extern void zlaqr3(
27456 const ptrdiff_t *wantt,
27457 const ptrdiff_t *wantz,
27458 const ptrdiff_t *n,
27459 const ptrdiff_t *ktop,
27460 const ptrdiff_t *kbot,
27461 const ptrdiff_t *nw,
27462 double *h,
27463 const ptrdiff_t *ldh,
27464 const ptrdiff_t *iloz,
27465 const ptrdiff_t *ihiz,
27466 double *z,
27467 const ptrdiff_t *ldz,
27468 ptrdiff_t *ns,
27469 ptrdiff_t *nd,
27470 double *sh,
27471 double *v,
27472 const ptrdiff_t *ldv,
27473 const ptrdiff_t *nh,
27474 double *t,
27475 const ptrdiff_t *ldt,
27476 const ptrdiff_t *nv,
27477 double *wv,
27478 const ptrdiff_t *ldwv,
27479 double *work,
27480 const ptrdiff_t *lwork
27481);
27482
27483/* Source: zlaqr4.f */
27484#define zlaqr4 FORTRAN_WRAPPER(zlaqr4)
27485extern void zlaqr4(
27486 const ptrdiff_t *wantt,
27487 const ptrdiff_t *wantz,
27488 const ptrdiff_t *n,
27489 const ptrdiff_t *ilo,
27490 const ptrdiff_t *ihi,
27491 double *h,
27492 const ptrdiff_t *ldh,
27493 double *w,
27494 ptrdiff_t *iloz,
27495 ptrdiff_t *ihiz,
27496 double *z,
27497 const ptrdiff_t *ldz,
27498 double *work,
27499 const ptrdiff_t *lwork,
27500 ptrdiff_t *info
27501);
27502
27503/* Source: zlaqr5.f */
27504#define zlaqr5 FORTRAN_WRAPPER(zlaqr5)
27505extern void zlaqr5(
27506 const ptrdiff_t *wantt,
27507 const ptrdiff_t *wantz,
27508 const ptrdiff_t *kacc22,
27509 const ptrdiff_t *n,
27510 const ptrdiff_t *ktop,
27511 const ptrdiff_t *kbot,
27512 const ptrdiff_t *nshfts,
27513 double *s,
27514 double *h,
27515 const ptrdiff_t *ldh,
27516 const ptrdiff_t *iloz,
27517 const ptrdiff_t *ihiz,
27518 double *z,
27519 const ptrdiff_t *ldz,
27520 double *v,
27521 const ptrdiff_t *ldv,
27522 double *u,
27523 const ptrdiff_t *ldu,
27524 const ptrdiff_t *nv,
27525 double *wv,
27526 const ptrdiff_t *ldwv,
27527 const ptrdiff_t *nh,
27528 double *wh,
27529 const ptrdiff_t *ldwh
27530);
27531
27532/* Source: zlaqsb.f */
27533#define zlaqsb FORTRAN_WRAPPER(zlaqsb)
27534extern void zlaqsb(
27535 const char *uplo,
27536 const ptrdiff_t *n,
27537 const ptrdiff_t *kd,
27538 double *ab,
27539 const ptrdiff_t *ldab,
27540 const double *s,
27541 const double *scond,
27542 const double *amax,
27543 char *equed
27544);
27545
27546/* Source: zlaqsp.f */
27547#define zlaqsp FORTRAN_WRAPPER(zlaqsp)
27548extern void zlaqsp(
27549 const char *uplo,
27550 const ptrdiff_t *n,
27551 double *ap,
27552 const double *s,
27553 const double *scond,
27554 const double *amax,
27555 char *equed
27556);
27557
27558/* Source: zlaqsy.f */
27559#define zlaqsy FORTRAN_WRAPPER(zlaqsy)
27560extern void zlaqsy(
27561 const char *uplo,
27562 const ptrdiff_t *n,
27563 double *a,
27564 const ptrdiff_t *lda,
27565 const double *s,
27566 const double *scond,
27567 const double *amax,
27568 char *equed
27569);
27570
27571/* Source: zlar1v.f */
27572#define zlar1v FORTRAN_WRAPPER(zlar1v)
27573extern void zlar1v(
27574 const ptrdiff_t *n,
27575 const ptrdiff_t *b1,
27576 const ptrdiff_t *bn,
27577 const double *lambda,
27578 const double *d,
27579 const double *l,
27580 const double *ld,
27581 const double *lld,
27582 const double *pivmin,
27583 const double *gaptol,
27584 double *z,
27585 const ptrdiff_t *wantnc,
27586 ptrdiff_t *negcnt,
27587 double *ztz,
27588 double *mingma,
27589 ptrdiff_t *r,
27590 ptrdiff_t *isuppz,
27591 double *nrminv,
27592 double *resid,
27593 double *rqcorr,
27594 double *work
27595);
27596
27597/* Source: zlar2v.f */
27598#define zlar2v FORTRAN_WRAPPER(zlar2v)
27599extern void zlar2v(
27600 const ptrdiff_t *n,
27601 double *x,
27602 double *y,
27603 double *z,
27604 const ptrdiff_t *incx,
27605 const double *c,
27606 const double *s,
27607 const ptrdiff_t *incc
27608);
27609
27610/* Source: zlarcm.f */
27611#define zlarcm FORTRAN_WRAPPER(zlarcm)
27612extern void zlarcm(
27613 const ptrdiff_t *m,
27614 const ptrdiff_t *n,
27615 const double *a,
27616 const ptrdiff_t *lda,
27617 const double *b,
27618 const ptrdiff_t *ldb,
27619 double *c,
27620 const ptrdiff_t *ldc,
27621 double *rwork
27622);
27623
27624/* Source: zlarf.f */
27625#define zlarf FORTRAN_WRAPPER(zlarf)
27626extern void zlarf(
27627 const char *side,
27628 const ptrdiff_t *m,
27629 const ptrdiff_t *n,
27630 const double *v,
27631 const ptrdiff_t *incv,
27632 const double *tau,
27633 double *c,
27634 const ptrdiff_t *ldc,
27635 double *work
27636);
27637
27638/* Source: zlarfb.f */
27639#define zlarfb FORTRAN_WRAPPER(zlarfb)
27640extern void zlarfb(
27641 const char *side,
27642 const char *trans,
27643 const char *direct,
27644 const char *storev,
27645 const ptrdiff_t *m,
27646 const ptrdiff_t *n,
27647 const ptrdiff_t *k,
27648 const double *v,
27649 const ptrdiff_t *ldv,
27650 const double *t,
27651 const ptrdiff_t *ldt,
27652 double *c,
27653 const ptrdiff_t *ldc,
27654 double *work,
27655 const ptrdiff_t *ldwork
27656);
27657
27658/* Source: zlarfg.f */
27659#define zlarfg FORTRAN_WRAPPER(zlarfg)
27660extern void zlarfg(
27661 const ptrdiff_t *n,
27662 double *alpha,
27663 double *x,
27664 const ptrdiff_t *incx,
27665 double *tau
27666);
27667
27668/* Source: zlarfgp.f */
27669#define zlarfgp FORTRAN_WRAPPER(zlarfgp)
27670extern void zlarfgp(
27671 const ptrdiff_t *n,
27672 double *alpha,
27673 double *x,
27674 const ptrdiff_t *incx,
27675 double *tau
27676);
27677
27678/* Source: zlarft.f */
27679#define zlarft FORTRAN_WRAPPER(zlarft)
27680extern void zlarft(
27681 const char *direct,
27682 const char *storev,
27683 const ptrdiff_t *n,
27684 const ptrdiff_t *k,
27685 const double *v,
27686 const ptrdiff_t *ldv,
27687 const double *tau,
27688 double *t,
27689 const ptrdiff_t *ldt
27690);
27691
27692/* Source: zlarfx.f */
27693#define zlarfx FORTRAN_WRAPPER(zlarfx)
27694extern void zlarfx(
27695 const char *side,
27696 const ptrdiff_t *m,
27697 const ptrdiff_t *n,
27698 const double *v,
27699 const double *tau,
27700 double *c,
27701 const ptrdiff_t *ldc,
27702 double *work
27703);
27704
27705/* Source: zlarfy.f */
27706#define zlarfy FORTRAN_WRAPPER(zlarfy)
27707extern void zlarfy(
27708 char *uplo,
27709 ptrdiff_t *n,
27710 double *v,
27711 ptrdiff_t *incv,
27712 double *tau,
27713 double *c,
27714 ptrdiff_t *ldc,
27715 double *work
27716);
27717
27718/* Source: zlargv.f */
27719#define zlargv FORTRAN_WRAPPER(zlargv)
27720extern void zlargv(
27721 const ptrdiff_t *n,
27722 double *x,
27723 const ptrdiff_t *incx,
27724 double *y,
27725 const ptrdiff_t *incy,
27726 double *c,
27727 const ptrdiff_t *incc
27728);
27729
27730/* Source: zlarnv.f */
27731#define zlarnv FORTRAN_WRAPPER(zlarnv)
27732extern void zlarnv(
27733 const ptrdiff_t *idist,
27734 ptrdiff_t *iseed,
27735 const ptrdiff_t *n,
27736 double *x
27737);
27738
27739/* Source: zlarrv.f */
27740#define zlarrv FORTRAN_WRAPPER(zlarrv)
27741extern void zlarrv(
27742 const ptrdiff_t *n,
27743 const double *vl,
27744 const double *vu,
27745 double *d,
27746 double *l,
27747 double *pivmin,
27748 const ptrdiff_t *isplit,
27749 const ptrdiff_t *m,
27750 const ptrdiff_t *dol,
27751 const ptrdiff_t *dou,
27752 const double *minrgp,
27753 const double *rtol1,
27754 const double *rtol2,
27755 double *w,
27756 double *werr,
27757 double *wgap,
27758 const ptrdiff_t *iblock,
27759 const ptrdiff_t *indexw,
27760 const double *gers,
27761 double *z,
27762 const ptrdiff_t *ldz,
27763 ptrdiff_t *isuppz,
27764 double *work,
27765 ptrdiff_t *iwork,
27766 ptrdiff_t *info
27767);
27768
27769/* Source: zlartg.f */
27770#define zlartg FORTRAN_WRAPPER(zlartg)
27771extern void zlartg(
27772 const double *f,
27773 const double *g,
27774 double *cs,
27775 double *sn,
27776 double *r
27777);
27778
27779/* Source: zlartv.f */
27780#define zlartv FORTRAN_WRAPPER(zlartv)
27781extern void zlartv(
27782 const ptrdiff_t *n,
27783 double *x,
27784 const ptrdiff_t *incx,
27785 double *y,
27786 const ptrdiff_t *incy,
27787 const double *c,
27788 const double *s,
27789 const ptrdiff_t *incc
27790);
27791
27792/* Source: zlarz.f */
27793#define zlarz FORTRAN_WRAPPER(zlarz)
27794extern void zlarz(
27795 const char *side,
27796 const ptrdiff_t *m,
27797 const ptrdiff_t *n,
27798 const ptrdiff_t *l,
27799 const double *v,
27800 const ptrdiff_t *incv,
27801 const double *tau,
27802 double *c,
27803 const ptrdiff_t *ldc,
27804 double *work
27805);
27806
27807/* Source: zlarzb.f */
27808#define zlarzb FORTRAN_WRAPPER(zlarzb)
27809extern void zlarzb(
27810 const char *side,
27811 const char *trans,
27812 const char *direct,
27813 const char *storev,
27814 const ptrdiff_t *m,
27815 const ptrdiff_t *n,
27816 const ptrdiff_t *k,
27817 const ptrdiff_t *l,
27818 const double *v,
27819 const ptrdiff_t *ldv,
27820 const double *t,
27821 const ptrdiff_t *ldt,
27822 double *c,
27823 const ptrdiff_t *ldc,
27824 double *work,
27825 const ptrdiff_t *ldwork
27826);
27827
27828/* Source: zlarzt.f */
27829#define zlarzt FORTRAN_WRAPPER(zlarzt)
27830extern void zlarzt(
27831 const char *direct,
27832 const char *storev,
27833 const ptrdiff_t *n,
27834 const ptrdiff_t *k,
27835 double *v,
27836 const ptrdiff_t *ldv,
27837 const double *tau,
27838 double *t,
27839 const ptrdiff_t *ldt
27840);
27841
27842/* Source: zlascl.f */
27843#define zlascl FORTRAN_WRAPPER(zlascl)
27844extern void zlascl(
27845 const char *type,
27846 const ptrdiff_t *kl,
27847 const ptrdiff_t *ku,
27848 const double *cfrom,
27849 const double *cto,
27850 const ptrdiff_t *m,
27851 const ptrdiff_t *n,
27852 double *a,
27853 const ptrdiff_t *lda,
27854 ptrdiff_t *info
27855);
27856
27857/* Source: zlaset.f */
27858#define zlaset FORTRAN_WRAPPER(zlaset)
27859extern void zlaset(
27860 const char *uplo,
27861 const ptrdiff_t *m,
27862 const ptrdiff_t *n,
27863 const double *alpha,
27864 const double *beta,
27865 double *a,
27866 const ptrdiff_t *lda
27867);
27868
27869/* Source: zlasr.f */
27870#define zlasr FORTRAN_WRAPPER(zlasr)
27871extern void zlasr(
27872 const char *side,
27873 const char *pivot,
27874 const char *direct,
27875 const ptrdiff_t *m,
27876 const ptrdiff_t *n,
27877 const double *c,
27878 const double *s,
27879 double *a,
27880 const ptrdiff_t *lda
27881);
27882
27883/* Source: zlassq.f */
27884#define zlassq FORTRAN_WRAPPER(zlassq)
27885extern void zlassq(
27886 const ptrdiff_t *n,
27887 const double *x,
27888 const ptrdiff_t *incx,
27889 double *scale,
27890 double *sumsq
27891);
27892
27893/* Source: zlaswlq.f */
27894#define zlaswlq FORTRAN_WRAPPER(zlaswlq)
27895extern void zlaswlq(
27896 const ptrdiff_t *m,
27897 const ptrdiff_t *n,
27898 const ptrdiff_t *mb,
27899 const ptrdiff_t *nb,
27900 double *a,
27901 const ptrdiff_t *lda,
27902 double *t,
27903 const ptrdiff_t *ldt,
27904 double *work,
27905 const ptrdiff_t *lwork,
27906 ptrdiff_t *info
27907);
27908
27909/* Source: zlaswp.f */
27910#define zlaswp FORTRAN_WRAPPER(zlaswp)
27911extern void zlaswp(
27912 const ptrdiff_t *n,
27913 double *a,
27914 const ptrdiff_t *lda,
27915 const ptrdiff_t *k1,
27916 const ptrdiff_t *k2,
27917 const ptrdiff_t *ipiv,
27918 const ptrdiff_t *incx
27919);
27920
27921/* Source: zlasyf.f */
27922#define zlasyf FORTRAN_WRAPPER(zlasyf)
27923extern void zlasyf(
27924 const char *uplo,
27925 const ptrdiff_t *n,
27926 const ptrdiff_t *nb,
27927 ptrdiff_t *kb,
27928 double *a,
27929 const ptrdiff_t *lda,
27930 ptrdiff_t *ipiv,
27931 double *w,
27932 const ptrdiff_t *ldw,
27933 ptrdiff_t *info
27934);
27935
27936/* Source: zlasyf_aa.f */
27937#define zlasyf_aa FORTRAN_WRAPPER(zlasyf_aa)
27938extern void zlasyf_aa(
27939 char *uplo,
27940 ptrdiff_t *j1_,
27941 ptrdiff_t *m,
27942 ptrdiff_t *nb,
27943 double *a,
27944 ptrdiff_t *lda,
27945 ptrdiff_t *ipiv,
27946 double *h,
27947 ptrdiff_t *ldh,
27948 double *work,
27949 ptrdiff_t *info
27950);
27951
27952/* Source: zlasyf_rk.f */
27953#define zlasyf_rk FORTRAN_WRAPPER(zlasyf_rk)
27954extern void zlasyf_rk(
27955 char *uplo,
27956 ptrdiff_t *n,
27957 ptrdiff_t *nb,
27958 ptrdiff_t *kb,
27959 double *a,
27960 ptrdiff_t *lda,
27961 double *e,
27962 ptrdiff_t *ipiv,
27963 double *w,
27964 ptrdiff_t *ldw,
27965 ptrdiff_t *info
27966);
27967
27968/* Source: zlasyf_rook.f */
27969#define zlasyf_rook FORTRAN_WRAPPER(zlasyf_rook)
27970extern void zlasyf_rook(
27971 const char *uplo,
27972 const ptrdiff_t *n,
27973 const ptrdiff_t *nb,
27974 ptrdiff_t *kb,
27975 double *a,
27976 const ptrdiff_t *lda,
27977 ptrdiff_t *ipiv,
27978 double *w,
27979 const ptrdiff_t *ldw,
27980 ptrdiff_t *info
27981);
27982
27983/* Source: zlat2c.f */
27984#define zlat2c FORTRAN_WRAPPER(zlat2c)
27985extern void zlat2c(
27986 const char *uplo,
27987 const ptrdiff_t *n,
27988 const double *a,
27989 const ptrdiff_t *lda,
27990 float *sa,
27991 const ptrdiff_t *ldsa,
27992 ptrdiff_t *info
27993);
27994
27995/* Source: zlatbs.f */
27996#define zlatbs FORTRAN_WRAPPER(zlatbs)
27997extern void zlatbs(
27998 const char *uplo,
27999 const char *trans,
28000 const char *diag,
28001 const char *normin,
28002 const ptrdiff_t *n,
28003 const ptrdiff_t *kd,
28004 const double *ab,
28005 const ptrdiff_t *ldab,
28006 double *x,
28007 double *scale,
28008 double *cnorm,
28009 ptrdiff_t *info
28010);
28011
28012/* Source: zlatdf.f */
28013#define zlatdf FORTRAN_WRAPPER(zlatdf)
28014extern void zlatdf(
28015 const ptrdiff_t *ijob,
28016 const ptrdiff_t *n,
28017 const double *z,
28018 const ptrdiff_t *ldz,
28019 double *rhs,
28020 double *rdsum,
28021 double *rdscal,
28022 const ptrdiff_t *ipiv,
28023 const ptrdiff_t *jpiv
28024);
28025
28026/* Source: zlatps.f */
28027#define zlatps FORTRAN_WRAPPER(zlatps)
28028extern void zlatps(
28029 const char *uplo,
28030 const char *trans,
28031 const char *diag,
28032 const char *normin,
28033 const ptrdiff_t *n,
28034 const double *ap,
28035 double *x,
28036 double *scale,
28037 double *cnorm,
28038 ptrdiff_t *info
28039);
28040
28041/* Source: zlatrd.f */
28042#define zlatrd FORTRAN_WRAPPER(zlatrd)
28043extern void zlatrd(
28044 const char *uplo,
28045 const ptrdiff_t *n,
28046 const ptrdiff_t *nb,
28047 double *a,
28048 const ptrdiff_t *lda,
28049 double *e,
28050 double *tau,
28051 double *w,
28052 const ptrdiff_t *ldw
28053);
28054
28055/* Source: zlatrs.f */
28056#define zlatrs FORTRAN_WRAPPER(zlatrs)
28057extern void zlatrs(
28058 const char *uplo,
28059 const char *trans,
28060 const char *diag,
28061 const char *normin,
28062 const ptrdiff_t *n,
28063 const double *a,
28064 const ptrdiff_t *lda,
28065 double *x,
28066 double *scale,
28067 double *cnorm,
28068 ptrdiff_t *info
28069);
28070
28071/* Source: zlatrz.f */
28072#define zlatrz FORTRAN_WRAPPER(zlatrz)
28073extern void zlatrz(
28074 const ptrdiff_t *m,
28075 const ptrdiff_t *n,
28076 const ptrdiff_t *l,
28077 double *a,
28078 const ptrdiff_t *lda,
28079 double *tau,
28080 double *work
28081);
28082
28083/* Source: zlatsqr.f */
28084#define zlatsqr FORTRAN_WRAPPER(zlatsqr)
28085extern void zlatsqr(
28086 const ptrdiff_t *m,
28087 const ptrdiff_t *n,
28088 const ptrdiff_t *mb,
28089 const ptrdiff_t *nb,
28090 double *a,
28091 const ptrdiff_t *lda,
28092 double *t,
28093 const ptrdiff_t *ldt,
28094 double *work,
28095 const ptrdiff_t *lwork,
28096 ptrdiff_t *info
28097);
28098
28099/* Source: zlauu2.f */
28100#define zlauu2 FORTRAN_WRAPPER(zlauu2)
28101extern void zlauu2(
28102 const char *uplo,
28103 const ptrdiff_t *n,
28104 double *a,
28105 const ptrdiff_t *lda,
28106 ptrdiff_t *info
28107);
28108
28109/* Source: zlauum.f */
28110#define zlauum FORTRAN_WRAPPER(zlauum)
28111extern void zlauum(
28112 const char *uplo,
28113 const ptrdiff_t *n,
28114 double *a,
28115 const ptrdiff_t *lda,
28116 ptrdiff_t *info
28117);
28118
28119/* Source: zpbcon.f */
28120#define zpbcon FORTRAN_WRAPPER(zpbcon)
28121extern void zpbcon(
28122 const char *uplo,
28123 const ptrdiff_t *n,
28124 const ptrdiff_t *kd,
28125 const double *ab,
28126 const ptrdiff_t *ldab,
28127 const double *anorm,
28128 double *rcond,
28129 double *work,
28130 double *rwork,
28131 ptrdiff_t *info
28132);
28133
28134/* Source: zpbequ.f */
28135#define zpbequ FORTRAN_WRAPPER(zpbequ)
28136extern void zpbequ(
28137 const char *uplo,
28138 const ptrdiff_t *n,
28139 const ptrdiff_t *kd,
28140 const double *ab,
28141 const ptrdiff_t *ldab,
28142 double *s,
28143 double *scond,
28144 double *amax,
28145 ptrdiff_t *info
28146);
28147
28148/* Source: zpbrfs.f */
28149#define zpbrfs FORTRAN_WRAPPER(zpbrfs)
28150extern void zpbrfs(
28151 const char *uplo,
28152 const ptrdiff_t *n,
28153 const ptrdiff_t *kd,
28154 const ptrdiff_t *nrhs,
28155 const double *ab,
28156 const ptrdiff_t *ldab,
28157 const double *afb,
28158 const ptrdiff_t *ldafb,
28159 const double *b,
28160 const ptrdiff_t *ldb,
28161 double *x,
28162 const ptrdiff_t *ldx,
28163 double *ferr,
28164 double *berr,
28165 double *work,
28166 double *rwork,
28167 ptrdiff_t *info
28168);
28169
28170/* Source: zpbstf.f */
28171#define zpbstf FORTRAN_WRAPPER(zpbstf)
28172extern void zpbstf(
28173 const char *uplo,
28174 const ptrdiff_t *n,
28175 const ptrdiff_t *kd,
28176 double *ab,
28177 const ptrdiff_t *ldab,
28178 ptrdiff_t *info
28179);
28180
28181/* Source: zpbsv.f */
28182#define zpbsv FORTRAN_WRAPPER(zpbsv)
28183extern void zpbsv(
28184 const char *uplo,
28185 const ptrdiff_t *n,
28186 const ptrdiff_t *kd,
28187 const ptrdiff_t *nrhs,
28188 double *ab,
28189 const ptrdiff_t *ldab,
28190 double *b,
28191 const ptrdiff_t *ldb,
28192 ptrdiff_t *info
28193);
28194
28195/* Source: zpbsvx.f */
28196#define zpbsvx FORTRAN_WRAPPER(zpbsvx)
28197extern void zpbsvx(
28198 const char *fact,
28199 const char *uplo,
28200 const ptrdiff_t *n,
28201 const ptrdiff_t *kd,
28202 const ptrdiff_t *nrhs,
28203 double *ab,
28204 const ptrdiff_t *ldab,
28205 double *afb,
28206 const ptrdiff_t *ldafb,
28207 char *equed,
28208 double *s,
28209 double *b,
28210 const ptrdiff_t *ldb,
28211 double *x,
28212 const ptrdiff_t *ldx,
28213 double *rcond,
28214 double *ferr,
28215 double *berr,
28216 double *work,
28217 double *rwork,
28218 ptrdiff_t *info
28219);
28220
28221/* Source: zpbtf2.f */
28222#define zpbtf2 FORTRAN_WRAPPER(zpbtf2)
28223extern void zpbtf2(
28224 const char *uplo,
28225 const ptrdiff_t *n,
28226 const ptrdiff_t *kd,
28227 double *ab,
28228 const ptrdiff_t *ldab,
28229 ptrdiff_t *info
28230);
28231
28232/* Source: zpbtrf.f */
28233#define zpbtrf FORTRAN_WRAPPER(zpbtrf)
28234extern void zpbtrf(
28235 const char *uplo,
28236 const ptrdiff_t *n,
28237 const ptrdiff_t *kd,
28238 double *ab,
28239 const ptrdiff_t *ldab,
28240 ptrdiff_t *info
28241);
28242
28243/* Source: zpbtrs.f */
28244#define zpbtrs FORTRAN_WRAPPER(zpbtrs)
28245extern void zpbtrs(
28246 const char *uplo,
28247 const ptrdiff_t *n,
28248 const ptrdiff_t *kd,
28249 const ptrdiff_t *nrhs,
28250 const double *ab,
28251 const ptrdiff_t *ldab,
28252 double *b,
28253 const ptrdiff_t *ldb,
28254 ptrdiff_t *info
28255);
28256
28257/* Source: zpftrf.f */
28258#define zpftrf FORTRAN_WRAPPER(zpftrf)
28259extern void zpftrf(
28260 const char *transr,
28261 const char *uplo,
28262 const ptrdiff_t *n,
28263 double *a,
28264 ptrdiff_t *info
28265);
28266
28267/* Source: zpftri.f */
28268#define zpftri FORTRAN_WRAPPER(zpftri)
28269extern void zpftri(
28270 const char *transr,
28271 const char *uplo,
28272 const ptrdiff_t *n,
28273 double *a,
28274 ptrdiff_t *info
28275);
28276
28277/* Source: zpftrs.f */
28278#define zpftrs FORTRAN_WRAPPER(zpftrs)
28279extern void zpftrs(
28280 const char *transr,
28281 const char *uplo,
28282 const ptrdiff_t *n,
28283 const ptrdiff_t *nrhs,
28284 const double *a,
28285 double *b,
28286 const ptrdiff_t *ldb,
28287 ptrdiff_t *info
28288);
28289
28290/* Source: zpocon.f */
28291#define zpocon FORTRAN_WRAPPER(zpocon)
28292extern void zpocon(
28293 const char *uplo,
28294 const ptrdiff_t *n,
28295 const double *a,
28296 const ptrdiff_t *lda,
28297 const double *anorm,
28298 double *rcond,
28299 double *work,
28300 double *rwork,
28301 ptrdiff_t *info
28302);
28303
28304/* Source: zpoequ.f */
28305#define zpoequ FORTRAN_WRAPPER(zpoequ)
28306extern void zpoequ(
28307 const ptrdiff_t *n,
28308 const double *a,
28309 const ptrdiff_t *lda,
28310 double *s,
28311 double *scond,
28312 double *amax,
28313 ptrdiff_t *info
28314);
28315
28316/* Source: zpoequb.f */
28317#define zpoequb FORTRAN_WRAPPER(zpoequb)
28318extern void zpoequb(
28319 const ptrdiff_t *n,
28320 const double *a,
28321 const ptrdiff_t *lda,
28322 double *s,
28323 double *scond,
28324 double *amax,
28325 ptrdiff_t *info
28326);
28327
28328/* Source: zporfs.f */
28329#define zporfs FORTRAN_WRAPPER(zporfs)
28330extern void zporfs(
28331 const char *uplo,
28332 const ptrdiff_t *n,
28333 const ptrdiff_t *nrhs,
28334 const double *a,
28335 const ptrdiff_t *lda,
28336 const double *af,
28337 const ptrdiff_t *ldaf,
28338 const double *b,
28339 const ptrdiff_t *ldb,
28340 double *x,
28341 const ptrdiff_t *ldx,
28342 double *ferr,
28343 double *berr,
28344 double *work,
28345 double *rwork,
28346 ptrdiff_t *info
28347);
28348
28349/* Source: zposv.f */
28350#define zposv FORTRAN_WRAPPER(zposv)
28351extern void zposv(
28352 const char *uplo,
28353 const ptrdiff_t *n,
28354 const ptrdiff_t *nrhs,
28355 double *a,
28356 const ptrdiff_t *lda,
28357 double *b,
28358 const ptrdiff_t *ldb,
28359 ptrdiff_t *info
28360);
28361
28362/* Source: zposvx.f */
28363#define zposvx FORTRAN_WRAPPER(zposvx)
28364extern void zposvx(
28365 const char *fact,
28366 const char *uplo,
28367 const ptrdiff_t *n,
28368 const ptrdiff_t *nrhs,
28369 double *a,
28370 const ptrdiff_t *lda,
28371 double *af,
28372 const ptrdiff_t *ldaf,
28373 char *equed,
28374 double *s,
28375 double *b,
28376 const ptrdiff_t *ldb,
28377 double *x,
28378 const ptrdiff_t *ldx,
28379 double *rcond,
28380 double *ferr,
28381 double *berr,
28382 double *work,
28383 double *rwork,
28384 ptrdiff_t *info
28385);
28386
28387/* Source: zpotf2.f */
28388#define zpotf2 FORTRAN_WRAPPER(zpotf2)
28389extern void zpotf2(
28390 const char *uplo,
28391 const ptrdiff_t *n,
28392 double *a,
28393 const ptrdiff_t *lda,
28394 ptrdiff_t *info
28395);
28396
28397/* Source: zpotrf.f */
28398#define zpotrf FORTRAN_WRAPPER(zpotrf)
28399extern void zpotrf(
28400 const char *uplo,
28401 const ptrdiff_t *n,
28402 double *a,
28403 const ptrdiff_t *lda,
28404 ptrdiff_t *info
28405);
28406
28407/* Source: zpotrf2.f */
28408#define zpotrf2 FORTRAN_WRAPPER(zpotrf2)
28409extern void zpotrf2(
28410 const char *uplo,
28411 const ptrdiff_t *n,
28412 double *a,
28413 const ptrdiff_t *lda,
28414 ptrdiff_t *info
28415);
28416
28417/* Source: zpotri.f */
28418#define zpotri FORTRAN_WRAPPER(zpotri)
28419extern void zpotri(
28420 const char *uplo,
28421 const ptrdiff_t *n,
28422 double *a,
28423 const ptrdiff_t *lda,
28424 ptrdiff_t *info
28425);
28426
28427/* Source: zpotrs.f */
28428#define zpotrs FORTRAN_WRAPPER(zpotrs)
28429extern void zpotrs(
28430 const char *uplo,
28431 const ptrdiff_t *n,
28432 const ptrdiff_t *nrhs,
28433 const double *a,
28434 const ptrdiff_t *lda,
28435 double *b,
28436 const ptrdiff_t *ldb,
28437 ptrdiff_t *info
28438);
28439
28440/* Source: zppcon.f */
28441#define zppcon FORTRAN_WRAPPER(zppcon)
28442extern void zppcon(
28443 const char *uplo,
28444 const ptrdiff_t *n,
28445 const double *ap,
28446 const double *anorm,
28447 double *rcond,
28448 double *work,
28449 double *rwork,
28450 ptrdiff_t *info
28451);
28452
28453/* Source: zppequ.f */
28454#define zppequ FORTRAN_WRAPPER(zppequ)
28455extern void zppequ(
28456 const char *uplo,
28457 const ptrdiff_t *n,
28458 const double *ap,
28459 double *s,
28460 double *scond,
28461 double *amax,
28462 ptrdiff_t *info
28463);
28464
28465/* Source: zpprfs.f */
28466#define zpprfs FORTRAN_WRAPPER(zpprfs)
28467extern void zpprfs(
28468 const char *uplo,
28469 const ptrdiff_t *n,
28470 const ptrdiff_t *nrhs,
28471 const double *ap,
28472 const double *afp,
28473 const double *b,
28474 const ptrdiff_t *ldb,
28475 double *x,
28476 const ptrdiff_t *ldx,
28477 double *ferr,
28478 double *berr,
28479 double *work,
28480 double *rwork,
28481 ptrdiff_t *info
28482);
28483
28484/* Source: zppsv.f */
28485#define zppsv FORTRAN_WRAPPER(zppsv)
28486extern void zppsv(
28487 const char *uplo,
28488 const ptrdiff_t *n,
28489 const ptrdiff_t *nrhs,
28490 double *ap,
28491 double *b,
28492 const ptrdiff_t *ldb,
28493 ptrdiff_t *info
28494);
28495
28496/* Source: zppsvx.f */
28497#define zppsvx FORTRAN_WRAPPER(zppsvx)
28498extern void zppsvx(
28499 const char *fact,
28500 const char *uplo,
28501 const ptrdiff_t *n,
28502 const ptrdiff_t *nrhs,
28503 double *ap,
28504 double *afp,
28505 char *equed,
28506 double *s,
28507 double *b,
28508 const ptrdiff_t *ldb,
28509 double *x,
28510 const ptrdiff_t *ldx,
28511 double *rcond,
28512 double *ferr,
28513 double *berr,
28514 double *work,
28515 double *rwork,
28516 ptrdiff_t *info
28517);
28518
28519/* Source: zpptrf.f */
28520#define zpptrf FORTRAN_WRAPPER(zpptrf)
28521extern void zpptrf(
28522 const char *uplo,
28523 const ptrdiff_t *n,
28524 double *ap,
28525 ptrdiff_t *info
28526);
28527
28528/* Source: zpptri.f */
28529#define zpptri FORTRAN_WRAPPER(zpptri)
28530extern void zpptri(
28531 const char *uplo,
28532 const ptrdiff_t *n,
28533 double *ap,
28534 ptrdiff_t *info
28535);
28536
28537/* Source: zpptrs.f */
28538#define zpptrs FORTRAN_WRAPPER(zpptrs)
28539extern void zpptrs(
28540 const char *uplo,
28541 const ptrdiff_t *n,
28542 const ptrdiff_t *nrhs,
28543 const double *ap,
28544 double *b,
28545 const ptrdiff_t *ldb,
28546 ptrdiff_t *info
28547);
28548
28549/* Source: zpstf2.f */
28550#define zpstf2 FORTRAN_WRAPPER(zpstf2)
28551extern void zpstf2(
28552 const char *uplo,
28553 const ptrdiff_t *n,
28554 double *a,
28555 const ptrdiff_t *lda,
28556 ptrdiff_t *piv,
28557 ptrdiff_t *rank,
28558 const double *tol,
28559 double *work,
28560 ptrdiff_t *info
28561);
28562
28563/* Source: zpstrf.f */
28564#define zpstrf FORTRAN_WRAPPER(zpstrf)
28565extern void zpstrf(
28566 const char *uplo,
28567 const ptrdiff_t *n,
28568 double *a,
28569 const ptrdiff_t *lda,
28570 ptrdiff_t *piv,
28571 ptrdiff_t *rank,
28572 const double *tol,
28573 double *work,
28574 ptrdiff_t *info
28575);
28576
28577/* Source: zptcon.f */
28578#define zptcon FORTRAN_WRAPPER(zptcon)
28579extern void zptcon(
28580 const ptrdiff_t *n,
28581 const double *d,
28582 const double *e,
28583 const double *anorm,
28584 double *rcond,
28585 double *rwork,
28586 ptrdiff_t *info
28587);
28588
28589/* Source: zpteqr.f */
28590#define zpteqr FORTRAN_WRAPPER(zpteqr)
28591extern void zpteqr(
28592 const char *compz,
28593 const ptrdiff_t *n,
28594 double *d,
28595 double *e,
28596 double *z,
28597 const ptrdiff_t *ldz,
28598 double *work,
28599 ptrdiff_t *info
28600);
28601
28602/* Source: zptrfs.f */
28603#define zptrfs FORTRAN_WRAPPER(zptrfs)
28604extern void zptrfs(
28605 const char *uplo,
28606 const ptrdiff_t *n,
28607 const ptrdiff_t *nrhs,
28608 const double *d,
28609 const double *e,
28610 const double *df,
28611 const double *ef,
28612 const double *b,
28613 const ptrdiff_t *ldb,
28614 double *x,
28615 const ptrdiff_t *ldx,
28616 double *ferr,
28617 double *berr,
28618 double *work,
28619 double *rwork,
28620 ptrdiff_t *info
28621);
28622
28623/* Source: zptsv.f */
28624#define zptsv FORTRAN_WRAPPER(zptsv)
28625extern void zptsv(
28626 const ptrdiff_t *n,
28627 const ptrdiff_t *nrhs,
28628 double *d,
28629 double *e,
28630 double *b,
28631 const ptrdiff_t *ldb,
28632 ptrdiff_t *info
28633);
28634
28635/* Source: zptsvx.f */
28636#define zptsvx FORTRAN_WRAPPER(zptsvx)
28637extern void zptsvx(
28638 const char *fact,
28639 const ptrdiff_t *n,
28640 const ptrdiff_t *nrhs,
28641 const double *d,
28642 const double *e,
28643 double *df,
28644 double *ef,
28645 const double *b,
28646 const ptrdiff_t *ldb,
28647 double *x,
28648 const ptrdiff_t *ldx,
28649 double *rcond,
28650 double *ferr,
28651 double *berr,
28652 double *work,
28653 double *rwork,
28654 ptrdiff_t *info
28655);
28656
28657/* Source: zpttrf.f */
28658#define zpttrf FORTRAN_WRAPPER(zpttrf)
28659extern void zpttrf(
28660 const ptrdiff_t *n,
28661 double *d,
28662 double *e,
28663 ptrdiff_t *info
28664);
28665
28666/* Source: zpttrs.f */
28667#define zpttrs FORTRAN_WRAPPER(zpttrs)
28668extern void zpttrs(
28669 const char *uplo,
28670 const ptrdiff_t *n,
28671 const ptrdiff_t *nrhs,
28672 const double *d,
28673 const double *e,
28674 double *b,
28675 const ptrdiff_t *ldb,
28676 ptrdiff_t *info
28677);
28678
28679/* Source: zptts2.f */
28680#define zptts2 FORTRAN_WRAPPER(zptts2)
28681extern void zptts2(
28682 const ptrdiff_t *iuplo,
28683 const ptrdiff_t *n,
28684 const ptrdiff_t *nrhs,
28685 const double *d,
28686 const double *e,
28687 double *b,
28688 const ptrdiff_t *ldb
28689);
28690
28691/* Source: zrot.f */
28692#define zrot FORTRAN_WRAPPER(zrot)
28693extern void zrot(
28694 const ptrdiff_t *n,
28695 double *cx,
28696 const ptrdiff_t *incx,
28697 double *cy,
28698 const ptrdiff_t *incy,
28699 const double *c,
28700 const double *s
28701);
28702
28703/* Source: zspcon.f */
28704#define zspcon FORTRAN_WRAPPER(zspcon)
28705extern void zspcon(
28706 const char *uplo,
28707 const ptrdiff_t *n,
28708 const double *ap,
28709 const ptrdiff_t *ipiv,
28710 const double *anorm,
28711 double *rcond,
28712 double *work,
28713 ptrdiff_t *info
28714);
28715
28716/* Source: zspmv.f */
28717#define zspmv FORTRAN_WRAPPER(zspmv)
28718extern void zspmv(
28719 const char *uplo,
28720 const ptrdiff_t *n,
28721 const double *alpha,
28722 const double *ap,
28723 const double *x,
28724 const ptrdiff_t *incx,
28725 const double *beta,
28726 double *y,
28727 const ptrdiff_t *incy
28728);
28729
28730/* Source: zspr.f */
28731#define zspr FORTRAN_WRAPPER(zspr)
28732extern void zspr(
28733 const char *uplo,
28734 const ptrdiff_t *n,
28735 const double *alpha,
28736 const double *x,
28737 const ptrdiff_t *incx,
28738 double *ap
28739);
28740
28741/* Source: zsprfs.f */
28742#define zsprfs FORTRAN_WRAPPER(zsprfs)
28743extern void zsprfs(
28744 const char *uplo,
28745 const ptrdiff_t *n,
28746 const ptrdiff_t *nrhs,
28747 const double *ap,
28748 const double *afp,
28749 const ptrdiff_t *ipiv,
28750 const double *b,
28751 const ptrdiff_t *ldb,
28752 double *x,
28753 const ptrdiff_t *ldx,
28754 double *ferr,
28755 double *berr,
28756 double *work,
28757 double *rwork,
28758 ptrdiff_t *info
28759);
28760
28761/* Source: zspsv.f */
28762#define zspsv FORTRAN_WRAPPER(zspsv)
28763extern void zspsv(
28764 const char *uplo,
28765 const ptrdiff_t *n,
28766 const ptrdiff_t *nrhs,
28767 double *ap,
28768 ptrdiff_t *ipiv,
28769 double *b,
28770 const ptrdiff_t *ldb,
28771 ptrdiff_t *info
28772);
28773
28774/* Source: zspsvx.f */
28775#define zspsvx FORTRAN_WRAPPER(zspsvx)
28776extern void zspsvx(
28777 const char *fact,
28778 const char *uplo,
28779 const ptrdiff_t *n,
28780 const ptrdiff_t *nrhs,
28781 const double *ap,
28782 double *afp,
28783 ptrdiff_t *ipiv,
28784 const double *b,
28785 const ptrdiff_t *ldb,
28786 double *x,
28787 const ptrdiff_t *ldx,
28788 double *rcond,
28789 double *ferr,
28790 double *berr,
28791 double *work,
28792 double *rwork,
28793 ptrdiff_t *info
28794);
28795
28796/* Source: zsptrf.f */
28797#define zsptrf FORTRAN_WRAPPER(zsptrf)
28798extern void zsptrf(
28799 const char *uplo,
28800 const ptrdiff_t *n,
28801 double *ap,
28802 ptrdiff_t *ipiv,
28803 ptrdiff_t *info
28804);
28805
28806/* Source: zsptri.f */
28807#define zsptri FORTRAN_WRAPPER(zsptri)
28808extern void zsptri(
28809 const char *uplo,
28810 const ptrdiff_t *n,
28811 double *ap,
28812 const ptrdiff_t *ipiv,
28813 double *work,
28814 ptrdiff_t *info
28815);
28816
28817/* Source: zsptrs.f */
28818#define zsptrs FORTRAN_WRAPPER(zsptrs)
28819extern void zsptrs(
28820 const char *uplo,
28821 const ptrdiff_t *n,
28822 const ptrdiff_t *nrhs,
28823 const double *ap,
28824 const ptrdiff_t *ipiv,
28825 double *b,
28826 const ptrdiff_t *ldb,
28827 ptrdiff_t *info
28828);
28829
28830/* Source: zstedc.f */
28831#define zstedc FORTRAN_WRAPPER(zstedc)
28832extern void zstedc(
28833 const char *compz,
28834 const ptrdiff_t *n,
28835 double *d,
28836 double *e,
28837 double *z,
28838 const ptrdiff_t *ldz,
28839 double *work,
28840 const ptrdiff_t *lwork,
28841 double *rwork,
28842 const ptrdiff_t *lrwork,
28843 ptrdiff_t *iwork,
28844 const ptrdiff_t *liwork,
28845 ptrdiff_t *info
28846);
28847
28848/* Source: zstegr.f */
28849#define zstegr FORTRAN_WRAPPER(zstegr)
28850extern void zstegr(
28851 const char *jobz,
28852 const char *range,
28853 const ptrdiff_t *n,
28854 double *d,
28855 double *e,
28856 const double *vl,
28857 const double *vu,
28858 const ptrdiff_t *il,
28859 const ptrdiff_t *iu,
28860 const double *abstol,
28861 ptrdiff_t *m,
28862 double *w,
28863 double *z,
28864 const ptrdiff_t *ldz,
28865 ptrdiff_t *isuppz,
28866 double *work,
28867 const ptrdiff_t *lwork,
28868 ptrdiff_t *iwork,
28869 const ptrdiff_t *liwork,
28870 ptrdiff_t *info
28871);
28872
28873/* Source: zstein.f */
28874#define zstein FORTRAN_WRAPPER(zstein)
28875extern void zstein(
28876 const ptrdiff_t *n,
28877 const double *d,
28878 const double *e,
28879 const ptrdiff_t *m,
28880 const double *w,
28881 const ptrdiff_t *iblock,
28882 const ptrdiff_t *isplit,
28883 double *z,
28884 const ptrdiff_t *ldz,
28885 double *work,
28886 ptrdiff_t *iwork,
28887 ptrdiff_t *ifail,
28888 ptrdiff_t *info
28889);
28890
28891/* Source: zstemr.f */
28892#define zstemr FORTRAN_WRAPPER(zstemr)
28893extern void zstemr(
28894 const char *jobz,
28895 const char *range,
28896 const ptrdiff_t *n,
28897 double *d,
28898 double *e,
28899 const double *vl,
28900 const double *vu,
28901 const ptrdiff_t *il,
28902 const ptrdiff_t *iu,
28903 ptrdiff_t *m,
28904 double *w,
28905 double *z,
28906 const ptrdiff_t *ldz,
28907 const ptrdiff_t *nzc,
28908 ptrdiff_t *isuppz,
28909 ptrdiff_t *tryrac,
28910 double *work,
28911 const ptrdiff_t *lwork,
28912 ptrdiff_t *iwork,
28913 const ptrdiff_t *liwork,
28914 ptrdiff_t *info
28915);
28916
28917/* Source: zsteqr.f */
28918#define zsteqr FORTRAN_WRAPPER(zsteqr)
28919extern void zsteqr(
28920 const char *compz,
28921 const ptrdiff_t *n,
28922 double *d,
28923 double *e,
28924 double *z,
28925 const ptrdiff_t *ldz,
28926 double *work,
28927 ptrdiff_t *info
28928);
28929
28930/* Source: zsycon.f */
28931#define zsycon FORTRAN_WRAPPER(zsycon)
28932extern void zsycon(
28933 const char *uplo,
28934 const ptrdiff_t *n,
28935 const double *a,
28936 const ptrdiff_t *lda,
28937 const ptrdiff_t *ipiv,
28938 const double *anorm,
28939 double *rcond,
28940 double *work,
28941 ptrdiff_t *info
28942);
28943
28944/* Source: zsycon_3.f */
28945#define zsycon_3 FORTRAN_WRAPPER(zsycon_3)
28946extern void zsycon_3(
28947 char *uplo,
28948 ptrdiff_t *n,
28949 double *a,
28950 ptrdiff_t *lda,
28951 double *e,
28952 ptrdiff_t *ipiv,
28953 double *anorm,
28954 double *rcond,
28955 double *work,
28956 ptrdiff_t *info
28957);
28958
28959/* Source: zsycon_rook.f */
28960#define zsycon_rook FORTRAN_WRAPPER(zsycon_rook)
28961extern void zsycon_rook(
28962 const char *uplo,
28963 const ptrdiff_t *n,
28964 const double *a,
28965 const ptrdiff_t *lda,
28966 const ptrdiff_t *ipiv,
28967 const double *anorm,
28968 double *rcond,
28969 double *work,
28970 ptrdiff_t *info
28971);
28972
28973/* Source: zsyconv.f */
28974#define zsyconv FORTRAN_WRAPPER(zsyconv)
28975extern void zsyconv(
28976 const char *uplo,
28977 const char *way,
28978 const ptrdiff_t *n,
28979 double *a,
28980 const ptrdiff_t *lda,
28981 const ptrdiff_t *ipiv,
28982 double *e,
28983 ptrdiff_t *info
28984);
28985
28986/* Source: zsyconvf.f */
28987#define zsyconvf FORTRAN_WRAPPER(zsyconvf)
28988extern void zsyconvf(
28989 char *uplo,
28990 char *way,
28991 ptrdiff_t *n,
28992 double *a,
28993 ptrdiff_t *lda,
28994 double *e,
28995 ptrdiff_t *ipiv,
28996 ptrdiff_t *info
28997);
28998
28999/* Source: zsyconvf_rook.f */
29000#define zsyconvf_rook FORTRAN_WRAPPER(zsyconvf_rook)
29001extern void zsyconvf_rook(
29002 char *uplo,
29003 char *way,
29004 ptrdiff_t *n,
29005 double *a,
29006 ptrdiff_t *lda,
29007 double *e,
29008 ptrdiff_t *ipiv,
29009 ptrdiff_t *info
29010);
29011
29012/* Source: zsyequb.f */
29013#define zsyequb FORTRAN_WRAPPER(zsyequb)
29014extern void zsyequb(
29015 char *uplo,
29016 const ptrdiff_t *n,
29017 const double *a,
29018 const ptrdiff_t *lda,
29019 double *s,
29020 double *scond,
29021 double *amax,
29022 double *work,
29023 ptrdiff_t *info
29024);
29025
29026/* Source: zsymv.f */
29027#define zsymv FORTRAN_WRAPPER(zsymv)
29028extern void zsymv(
29029 const char *uplo,
29030 const ptrdiff_t *n,
29031 const double *alpha,
29032 const double *a,
29033 const ptrdiff_t *lda,
29034 const double *x,
29035 const ptrdiff_t *incx,
29036 const double *beta,
29037 double *y,
29038 const ptrdiff_t *incy
29039);
29040
29041/* Source: zsyr.f */
29042#define zsyr FORTRAN_WRAPPER(zsyr)
29043extern void zsyr(
29044 const char *uplo,
29045 const ptrdiff_t *n,
29046 const double *alpha,
29047 const double *x,
29048 const ptrdiff_t *incx,
29049 double *a,
29050 const ptrdiff_t *lda
29051);
29052
29053/* Source: zsyrfs.f */
29054#define zsyrfs FORTRAN_WRAPPER(zsyrfs)
29055extern void zsyrfs(
29056 const char *uplo,
29057 const ptrdiff_t *n,
29058 const ptrdiff_t *nrhs,
29059 const double *a,
29060 const ptrdiff_t *lda,
29061 const double *af,
29062 const ptrdiff_t *ldaf,
29063 const ptrdiff_t *ipiv,
29064 const double *b,
29065 const ptrdiff_t *ldb,
29066 double *x,
29067 const ptrdiff_t *ldx,
29068 double *ferr,
29069 double *berr,
29070 double *work,
29071 double *rwork,
29072 ptrdiff_t *info
29073);
29074
29075/* Source: zsysv.f */
29076#define zsysv FORTRAN_WRAPPER(zsysv)
29077extern void zsysv(
29078 const char *uplo,
29079 const ptrdiff_t *n,
29080 const ptrdiff_t *nrhs,
29081 double *a,
29082 const ptrdiff_t *lda,
29083 ptrdiff_t *ipiv,
29084 double *b,
29085 const ptrdiff_t *ldb,
29086 double *work,
29087 const ptrdiff_t *lwork,
29088 ptrdiff_t *info
29089);
29090
29091/* Source: zsysv_aa.f */
29092#define zsysv_aa FORTRAN_WRAPPER(zsysv_aa)
29093extern void zsysv_aa(
29094 char *uplo,
29095 ptrdiff_t *n,
29096 ptrdiff_t *nrhs,
29097 double *a,
29098 ptrdiff_t *lda,
29099 ptrdiff_t *ipiv,
29100 double *b,
29101 ptrdiff_t *ldb,
29102 double *work,
29103 ptrdiff_t *lwork,
29104 ptrdiff_t *info
29105);
29106
29107/* Source: zsysv_rk.f */
29108#define zsysv_rk FORTRAN_WRAPPER(zsysv_rk)
29109extern void zsysv_rk(
29110 char *uplo,
29111 ptrdiff_t *n,
29112 ptrdiff_t *nrhs,
29113 double *a,
29114 ptrdiff_t *lda,
29115 double *e,
29116 ptrdiff_t *ipiv,
29117 double *b,
29118 ptrdiff_t *ldb,
29119 double *work,
29120 ptrdiff_t *lwork,
29121 ptrdiff_t *info
29122);
29123
29124/* Source: zsysv_rook.f */
29125#define zsysv_rook FORTRAN_WRAPPER(zsysv_rook)
29126extern void zsysv_rook(
29127 const char *uplo,
29128 const ptrdiff_t *n,
29129 const ptrdiff_t *nrhs,
29130 double *a,
29131 const ptrdiff_t *lda,
29132 ptrdiff_t *ipiv,
29133 double *b,
29134 const ptrdiff_t *ldb,
29135 double *work,
29136 const ptrdiff_t *lwork,
29137 ptrdiff_t *info
29138);
29139
29140/* Source: zsysvx.f */
29141#define zsysvx FORTRAN_WRAPPER(zsysvx)
29142extern void zsysvx(
29143 const char *fact,
29144 const char *uplo,
29145 const ptrdiff_t *n,
29146 const ptrdiff_t *nrhs,
29147 const double *a,
29148 const ptrdiff_t *lda,
29149 double *af,
29150 const ptrdiff_t *ldaf,
29151 ptrdiff_t *ipiv,
29152 const double *b,
29153 const ptrdiff_t *ldb,
29154 double *x,
29155 const ptrdiff_t *ldx,
29156 double *rcond,
29157 double *ferr,
29158 double *berr,
29159 double *work,
29160 const ptrdiff_t *lwork,
29161 double *rwork,
29162 ptrdiff_t *info
29163);
29164
29165/* Source: zsyswapr.f */
29166#define zsyswapr FORTRAN_WRAPPER(zsyswapr)
29167extern void zsyswapr(
29168 const char *uplo,
29169 const ptrdiff_t *n,
29170 double *a,
29171 const ptrdiff_t *lda,
29172 const ptrdiff_t *i1,
29173 const ptrdiff_t *i2
29174);
29175
29176/* Source: zsytf2.f */
29177#define zsytf2 FORTRAN_WRAPPER(zsytf2)
29178extern void zsytf2(
29179 const char *uplo,
29180 const ptrdiff_t *n,
29181 double *a,
29182 const ptrdiff_t *lda,
29183 ptrdiff_t *ipiv,
29184 ptrdiff_t *info
29185);
29186
29187/* Source: zsytf2_rk.f */
29188#define zsytf2_rk FORTRAN_WRAPPER(zsytf2_rk)
29189extern void zsytf2_rk(
29190 char *uplo,
29191 ptrdiff_t *n,
29192 double *a,
29193 ptrdiff_t *lda,
29194 double *e,
29195 ptrdiff_t *ipiv,
29196 ptrdiff_t *info
29197);
29198
29199/* Source: zsytf2_rook.f */
29200#define zsytf2_rook FORTRAN_WRAPPER(zsytf2_rook)
29201extern void zsytf2_rook(
29202 const char *uplo,
29203 const ptrdiff_t *n,
29204 double *a,
29205 const ptrdiff_t *lda,
29206 ptrdiff_t *ipiv,
29207 ptrdiff_t *info
29208);
29209
29210/* Source: zsytrf.f */
29211#define zsytrf FORTRAN_WRAPPER(zsytrf)
29212extern void zsytrf(
29213 const char *uplo,
29214 const ptrdiff_t *n,
29215 double *a,
29216 const ptrdiff_t *lda,
29217 ptrdiff_t *ipiv,
29218 double *work,
29219 const ptrdiff_t *lwork,
29220 ptrdiff_t *info
29221);
29222
29223/* Source: zsytrf_aa.f */
29224#define zsytrf_aa FORTRAN_WRAPPER(zsytrf_aa)
29225extern void zsytrf_aa(
29226 char *uplo,
29227 ptrdiff_t *n,
29228 double *a,
29229 ptrdiff_t *lda,
29230 ptrdiff_t *ipiv,
29231 double *work,
29232 ptrdiff_t *lwork,
29233 ptrdiff_t *info
29234);
29235
29236/* Source: zsytrf_rk.f */
29237#define zsytrf_rk FORTRAN_WRAPPER(zsytrf_rk)
29238extern void zsytrf_rk(
29239 char *uplo,
29240 ptrdiff_t *n,
29241 double *a,
29242 ptrdiff_t *lda,
29243 double *e,
29244 ptrdiff_t *ipiv,
29245 double *work,
29246 ptrdiff_t *lwork,
29247 ptrdiff_t *info
29248);
29249
29250/* Source: zsytrf_rook.f */
29251#define zsytrf_rook FORTRAN_WRAPPER(zsytrf_rook)
29252extern void zsytrf_rook(
29253 const char *uplo,
29254 const ptrdiff_t *n,
29255 double *a,
29256 const ptrdiff_t *lda,
29257 ptrdiff_t *ipiv,
29258 double *work,
29259 const ptrdiff_t *lwork,
29260 ptrdiff_t *info
29261);
29262
29263/* Source: zsytri.f */
29264#define zsytri FORTRAN_WRAPPER(zsytri)
29265extern void zsytri(
29266 const char *uplo,
29267 const ptrdiff_t *n,
29268 double *a,
29269 const ptrdiff_t *lda,
29270 const ptrdiff_t *ipiv,
29271 double *work,
29272 ptrdiff_t *info
29273);
29274
29275/* Source: zsytri2.f */
29276#define zsytri2 FORTRAN_WRAPPER(zsytri2)
29277extern void zsytri2(
29278 const char *uplo,
29279 const ptrdiff_t *n,
29280 double *a,
29281 const ptrdiff_t *lda,
29282 const ptrdiff_t *ipiv,
29283 double *work,
29284 const ptrdiff_t *lwork,
29285 ptrdiff_t *info
29286);
29287
29288/* Source: zsytri2x.f */
29289#define zsytri2x FORTRAN_WRAPPER(zsytri2x)
29290extern void zsytri2x(
29291 const char *uplo,
29292 const ptrdiff_t *n,
29293 double *a,
29294 const ptrdiff_t *lda,
29295 const ptrdiff_t *ipiv,
29296 double *work,
29297 ptrdiff_t *nb,
29298 ptrdiff_t *info
29299);
29300
29301/* Source: zsytri_3.f */
29302#define zsytri_3 FORTRAN_WRAPPER(zsytri_3)
29303extern void zsytri_3(
29304 char *uplo,
29305 ptrdiff_t *n,
29306 double *a,
29307 ptrdiff_t *lda,
29308 double *e,
29309 ptrdiff_t *ipiv,
29310 double *work,
29311 ptrdiff_t *lwork,
29312 ptrdiff_t *info
29313);
29314
29315/* Source: zsytri_3x.f */
29316#define zsytri_3x FORTRAN_WRAPPER(zsytri_3x)
29317extern void zsytri_3x(
29318 char *uplo,
29319 ptrdiff_t *n,
29320 double *a,
29321 ptrdiff_t *lda,
29322 double *e,
29323 ptrdiff_t *ipiv,
29324 double *work,
29325 ptrdiff_t *nb,
29326 ptrdiff_t *info
29327);
29328
29329/* Source: zsytri_rook.f */
29330#define zsytri_rook FORTRAN_WRAPPER(zsytri_rook)
29331extern void zsytri_rook(
29332 const char *uplo,
29333 const ptrdiff_t *n,
29334 double *a,
29335 const ptrdiff_t *lda,
29336 const ptrdiff_t *ipiv,
29337 double *work,
29338 ptrdiff_t *info
29339);
29340
29341/* Source: zsytrs.f */
29342#define zsytrs FORTRAN_WRAPPER(zsytrs)
29343extern void zsytrs(
29344 const char *uplo,
29345 const ptrdiff_t *n,
29346 const ptrdiff_t *nrhs,
29347 const double *a,
29348 const ptrdiff_t *lda,
29349 const ptrdiff_t *ipiv,
29350 double *b,
29351 const ptrdiff_t *ldb,
29352 ptrdiff_t *info
29353);
29354
29355/* Source: zsytrs2.f */
29356#define zsytrs2 FORTRAN_WRAPPER(zsytrs2)
29357extern void zsytrs2(
29358 const char *uplo,
29359 const ptrdiff_t *n,
29360 const ptrdiff_t *nrhs,
29361 const double *a,
29362 const ptrdiff_t *lda,
29363 const ptrdiff_t *ipiv,
29364 double *b,
29365 const ptrdiff_t *ldb,
29366 double *work,
29367 ptrdiff_t *info
29368);
29369
29370/* Source: zsytrs_3.f */
29371#define zsytrs_3 FORTRAN_WRAPPER(zsytrs_3)
29372extern void zsytrs_3(
29373 char *uplo,
29374 ptrdiff_t *n,
29375 ptrdiff_t *nrhs,
29376 double *a,
29377 ptrdiff_t *lda,
29378 double *e,
29379 ptrdiff_t *ipiv,
29380 double *b,
29381 ptrdiff_t *ldb,
29382 ptrdiff_t *info
29383);
29384
29385/* Source: zsytrs_aa.f */
29386#define zsytrs_aa FORTRAN_WRAPPER(zsytrs_aa)
29387extern void zsytrs_aa(
29388 char *uplo,
29389 ptrdiff_t *n,
29390 ptrdiff_t *nrhs,
29391 double *a,
29392 ptrdiff_t *lda,
29393 ptrdiff_t *ipiv,
29394 double *b,
29395 ptrdiff_t *ldb,
29396 double *work,
29397 ptrdiff_t *lwork,
29398 ptrdiff_t *info
29399);
29400
29401/* Source: zsytrs_rook.f */
29402#define zsytrs_rook FORTRAN_WRAPPER(zsytrs_rook)
29403extern void zsytrs_rook(
29404 const char *uplo,
29405 const ptrdiff_t *n,
29406 const ptrdiff_t *nrhs,
29407 const double *a,
29408 const ptrdiff_t *lda,
29409 const ptrdiff_t *ipiv,
29410 double *b,
29411 const ptrdiff_t *ldb,
29412 ptrdiff_t *info
29413);
29414
29415/* Source: ztbcon.f */
29416#define ztbcon FORTRAN_WRAPPER(ztbcon)
29417extern void ztbcon(
29418 const char *norm,
29419 const char *uplo,
29420 const char *diag,
29421 const ptrdiff_t *n,
29422 const ptrdiff_t *kd,
29423 const double *ab,
29424 const ptrdiff_t *ldab,
29425 double *rcond,
29426 double *work,
29427 double *rwork,
29428 ptrdiff_t *info
29429);
29430
29431/* Source: ztbrfs.f */
29432#define ztbrfs FORTRAN_WRAPPER(ztbrfs)
29433extern void ztbrfs(
29434 const char *uplo,
29435 const char *trans,
29436 const char *diag,
29437 const ptrdiff_t *n,
29438 const ptrdiff_t *kd,
29439 const ptrdiff_t *nrhs,
29440 const double *ab,
29441 const ptrdiff_t *ldab,
29442 const double *b,
29443 const ptrdiff_t *ldb,
29444 const double *x,
29445 const ptrdiff_t *ldx,
29446 double *ferr,
29447 double *berr,
29448 double *work,
29449 double *rwork,
29450 ptrdiff_t *info
29451);
29452
29453/* Source: ztbtrs.f */
29454#define ztbtrs FORTRAN_WRAPPER(ztbtrs)
29455extern void ztbtrs(
29456 const char *uplo,
29457 const char *trans,
29458 const char *diag,
29459 const ptrdiff_t *n,
29460 const ptrdiff_t *kd,
29461 const ptrdiff_t *nrhs,
29462 const double *ab,
29463 const ptrdiff_t *ldab,
29464 double *b,
29465 const ptrdiff_t *ldb,
29466 ptrdiff_t *info
29467);
29468
29469/* Source: ztfsm.f */
29470#define ztfsm FORTRAN_WRAPPER(ztfsm)
29471extern void ztfsm(
29472 const char *transr,
29473 const char *side,
29474 const char *uplo,
29475 const char *trans,
29476 const char *diag,
29477 const ptrdiff_t *m,
29478 const ptrdiff_t *n,
29479 const double *alpha,
29480 const double *a,
29481 double *b,
29482 const ptrdiff_t *ldb
29483);
29484
29485/* Source: ztftri.f */
29486#define ztftri FORTRAN_WRAPPER(ztftri)
29487extern void ztftri(
29488 const char *transr,
29489 const char *uplo,
29490 const char *diag,
29491 const ptrdiff_t *n,
29492 double *a,
29493 ptrdiff_t *info
29494);
29495
29496/* Source: ztfttp.f */
29497#define ztfttp FORTRAN_WRAPPER(ztfttp)
29498extern void ztfttp(
29499 const char *transr,
29500 const char *uplo,
29501 const ptrdiff_t *n,
29502 const double *arf,
29503 double *ap,
29504 ptrdiff_t *info
29505);
29506
29507/* Source: ztfttr.f */
29508#define ztfttr FORTRAN_WRAPPER(ztfttr)
29509extern void ztfttr(
29510 const char *transr,
29511 const char *uplo,
29512 const ptrdiff_t *n,
29513 const double *arf,
29514 double *a,
29515 const ptrdiff_t *lda,
29516 ptrdiff_t *info
29517);
29518
29519/* Source: ztgevc.f */
29520#define ztgevc FORTRAN_WRAPPER(ztgevc)
29521extern void ztgevc(
29522 const char *side,
29523 const char *howmny,
29524 const ptrdiff_t *select,
29525 const ptrdiff_t *n,
29526 const double *s,
29527 const ptrdiff_t *lds,
29528 const double *p,
29529 const ptrdiff_t *ldp,
29530 double *vl,
29531 const ptrdiff_t *ldvl,
29532 double *vr,
29533 const ptrdiff_t *ldvr,
29534 const ptrdiff_t *mm,
29535 ptrdiff_t *m,
29536 double *work,
29537 double *rwork,
29538 ptrdiff_t *info
29539);
29540
29541/* Source: ztgex2.f */
29542#define ztgex2 FORTRAN_WRAPPER(ztgex2)
29543extern void ztgex2(
29544 const ptrdiff_t *wantq,
29545 const ptrdiff_t *wantz,
29546 const ptrdiff_t *n,
29547 double *a,
29548 const ptrdiff_t *lda,
29549 double *b,
29550 const ptrdiff_t *ldb,
29551 double *q,
29552 const ptrdiff_t *ldq,
29553 double *z,
29554 const ptrdiff_t *ldz,
29555 const ptrdiff_t *j1_,
29556 ptrdiff_t *info
29557);
29558
29559/* Source: ztgexc.f */
29560#define ztgexc FORTRAN_WRAPPER(ztgexc)
29561extern void ztgexc(
29562 const ptrdiff_t *wantq,
29563 const ptrdiff_t *wantz,
29564 const ptrdiff_t *n,
29565 double *a,
29566 const ptrdiff_t *lda,
29567 double *b,
29568 const ptrdiff_t *ldb,
29569 double *q,
29570 const ptrdiff_t *ldq,
29571 double *z,
29572 const ptrdiff_t *ldz,
29573 const ptrdiff_t *ifst,
29574 ptrdiff_t *ilst,
29575 ptrdiff_t *info
29576);
29577
29578/* Source: ztgsen.f */
29579#define ztgsen FORTRAN_WRAPPER(ztgsen)
29580extern void ztgsen(
29581 const ptrdiff_t *ijob,
29582 const ptrdiff_t *wantq,
29583 const ptrdiff_t *wantz,
29584 const ptrdiff_t *select,
29585 const ptrdiff_t *n,
29586 double *a,
29587 const ptrdiff_t *lda,
29588 double *b,
29589 const ptrdiff_t *ldb,
29590 double *alpha,
29591 double *beta,
29592 double *q,
29593 const ptrdiff_t *ldq,
29594 double *z,
29595 const ptrdiff_t *ldz,
29596 ptrdiff_t *m,
29597 double *pl,
29598 double *pr,
29599 double *dif,
29600 double *work,
29601 const ptrdiff_t *lwork,
29602 ptrdiff_t *iwork,
29603 const ptrdiff_t *liwork,
29604 ptrdiff_t *info
29605);
29606
29607/* Source: ztgsja.f */
29608#define ztgsja FORTRAN_WRAPPER(ztgsja)
29609extern void ztgsja(
29610 const char *jobu,
29611 const char *jobv,
29612 const char *jobq,
29613 const ptrdiff_t *m,
29614 const ptrdiff_t *p,
29615 const ptrdiff_t *n,
29616 const ptrdiff_t *k,
29617 const ptrdiff_t *l,
29618 double *a,
29619 const ptrdiff_t *lda,
29620 double *b,
29621 const ptrdiff_t *ldb,
29622 const double *tola,
29623 const double *tolb,
29624 double *alpha,
29625 double *beta,
29626 double *u,
29627 const ptrdiff_t *ldu,
29628 double *v,
29629 const ptrdiff_t *ldv,
29630 double *q,
29631 const ptrdiff_t *ldq,
29632 double *work,
29633 ptrdiff_t *ncycle,
29634 ptrdiff_t *info
29635);
29636
29637/* Source: ztgsna.f */
29638#define ztgsna FORTRAN_WRAPPER(ztgsna)
29639extern void ztgsna(
29640 const char *job,
29641 const char *howmny,
29642 const ptrdiff_t *select,
29643 const ptrdiff_t *n,
29644 const double *a,
29645 const ptrdiff_t *lda,
29646 const double *b,
29647 const ptrdiff_t *ldb,
29648 const double *vl,
29649 const ptrdiff_t *ldvl,
29650 const double *vr,
29651 const ptrdiff_t *ldvr,
29652 double *s,
29653 double *dif,
29654 const ptrdiff_t *mm,
29655 ptrdiff_t *m,
29656 double *work,
29657 const ptrdiff_t *lwork,
29658 ptrdiff_t *iwork,
29659 ptrdiff_t *info
29660);
29661
29662/* Source: ztgsy2.f */
29663#define ztgsy2 FORTRAN_WRAPPER(ztgsy2)
29664extern void ztgsy2(
29665 const char *trans,
29666 const ptrdiff_t *ijob,
29667 const ptrdiff_t *m,
29668 const ptrdiff_t *n,
29669 const double *a,
29670 const ptrdiff_t *lda,
29671 const double *b,
29672 const ptrdiff_t *ldb,
29673 double *c,
29674 const ptrdiff_t *ldc,
29675 const double *d,
29676 const ptrdiff_t *ldd,
29677 const double *e,
29678 const ptrdiff_t *lde,
29679 double *f,
29680 const ptrdiff_t *ldf,
29681 double *scale,
29682 double *rdsum,
29683 double *rdscal,
29684 ptrdiff_t *info
29685);
29686
29687/* Source: ztgsyl.f */
29688#define ztgsyl FORTRAN_WRAPPER(ztgsyl)
29689extern void ztgsyl(
29690 const char *trans,
29691 const ptrdiff_t *ijob,
29692 const ptrdiff_t *m,
29693 const ptrdiff_t *n,
29694 const double *a,
29695 const ptrdiff_t *lda,
29696 const double *b,
29697 const ptrdiff_t *ldb,
29698 double *c,
29699 const ptrdiff_t *ldc,
29700 const double *d,
29701 const ptrdiff_t *ldd,
29702 const double *e,
29703 const ptrdiff_t *lde,
29704 double *f,
29705 const ptrdiff_t *ldf,
29706 double *scale,
29707 double *dif,
29708 double *work,
29709 const ptrdiff_t *lwork,
29710 ptrdiff_t *iwork,
29711 ptrdiff_t *info
29712);
29713
29714/* Source: ztpcon.f */
29715#define ztpcon FORTRAN_WRAPPER(ztpcon)
29716extern void ztpcon(
29717 const char *norm,
29718 const char *uplo,
29719 const char *diag,
29720 const ptrdiff_t *n,
29721 const double *ap,
29722 double *rcond,
29723 double *work,
29724 double *rwork,
29725 ptrdiff_t *info
29726);
29727
29728/* Source: ztplqt.f */
29729#define ztplqt FORTRAN_WRAPPER(ztplqt)
29730extern void ztplqt(
29731 const ptrdiff_t *m,
29732 const ptrdiff_t *n,
29733 const ptrdiff_t *l,
29734 const ptrdiff_t *mb,
29735 double *a,
29736 const ptrdiff_t *lda,
29737 double *b,
29738 const ptrdiff_t *ldb,
29739 double *t,
29740 const ptrdiff_t *ldt,
29741 double *work,
29742 ptrdiff_t *info
29743);
29744
29745/* Source: ztplqt2.f */
29746#define ztplqt2 FORTRAN_WRAPPER(ztplqt2)
29747extern void ztplqt2(
29748 const ptrdiff_t *m,
29749 const ptrdiff_t *n,
29750 const ptrdiff_t *l,
29751 double *a,
29752 const ptrdiff_t *lda,
29753 double *b,
29754 const ptrdiff_t *ldb,
29755 double *t,
29756 const ptrdiff_t *ldt,
29757 ptrdiff_t *info
29758);
29759
29760/* Source: ztpmlqt.f */
29761#define ztpmlqt FORTRAN_WRAPPER(ztpmlqt)
29762extern void ztpmlqt(
29763 const char *side,
29764 const char *trans,
29765 const ptrdiff_t *m,
29766 const ptrdiff_t *n,
29767 const ptrdiff_t *k,
29768 const ptrdiff_t *l,
29769 const ptrdiff_t *mb,
29770 const double *v,
29771 const ptrdiff_t *ldv,
29772 const double *t,
29773 const ptrdiff_t *ldt,
29774 double *a,
29775 const ptrdiff_t *lda,
29776 double *b,
29777 const ptrdiff_t *ldb,
29778 double *work,
29779 ptrdiff_t *info
29780);
29781
29782/* Source: ztpmqrt.f */
29783#define ztpmqrt FORTRAN_WRAPPER(ztpmqrt)
29784extern void ztpmqrt(
29785 const char *side,
29786 const char *trans,
29787 const ptrdiff_t *m,
29788 const ptrdiff_t *n,
29789 const ptrdiff_t *k,
29790 const ptrdiff_t *l,
29791 const ptrdiff_t *nb,
29792 const double *v,
29793 const ptrdiff_t *ldv,
29794 const double *t,
29795 const ptrdiff_t *ldt,
29796 double *a,
29797 const ptrdiff_t *lda,
29798 double *b,
29799 const ptrdiff_t *ldb,
29800 double *work,
29801 ptrdiff_t *info
29802);
29803
29804/* Source: ztpqrt.f */
29805#define ztpqrt FORTRAN_WRAPPER(ztpqrt)
29806extern void ztpqrt(
29807 const ptrdiff_t *m,
29808 const ptrdiff_t *n,
29809 const ptrdiff_t *l,
29810 const ptrdiff_t *nb,
29811 double *a,
29812 const ptrdiff_t *lda,
29813 double *b,
29814 const ptrdiff_t *ldb,
29815 double *t,
29816 const ptrdiff_t *ldt,
29817 double *work,
29818 ptrdiff_t *info
29819);
29820
29821/* Source: ztpqrt2.f */
29822#define ztpqrt2 FORTRAN_WRAPPER(ztpqrt2)
29823extern void ztpqrt2(
29824 const ptrdiff_t *m,
29825 const ptrdiff_t *n,
29826 const ptrdiff_t *l,
29827 double *a,
29828 const ptrdiff_t *lda,
29829 double *b,
29830 const ptrdiff_t *ldb,
29831 double *t,
29832 const ptrdiff_t *ldt,
29833 ptrdiff_t *info
29834);
29835
29836/* Source: ztprfb.f */
29837#define ztprfb FORTRAN_WRAPPER(ztprfb)
29838extern void ztprfb(
29839 const char *side,
29840 const char *trans,
29841 const char *direct,
29842 const char *storev,
29843 const ptrdiff_t *m,
29844 const ptrdiff_t *n,
29845 const ptrdiff_t *k,
29846 const ptrdiff_t *l,
29847 const double *v,
29848 const ptrdiff_t *ldv,
29849 const double *t,
29850 const ptrdiff_t *ldt,
29851 double *a,
29852 const ptrdiff_t *lda,
29853 double *b,
29854 const ptrdiff_t *ldb,
29855 double *work,
29856 const ptrdiff_t *ldwork
29857);
29858
29859/* Source: ztprfs.f */
29860#define ztprfs FORTRAN_WRAPPER(ztprfs)
29861extern void ztprfs(
29862 const char *uplo,
29863 const char *trans,
29864 const char *diag,
29865 const ptrdiff_t *n,
29866 const ptrdiff_t *nrhs,
29867 const double *ap,
29868 const double *b,
29869 const ptrdiff_t *ldb,
29870 const double *x,
29871 const ptrdiff_t *ldx,
29872 double *ferr,
29873 double *berr,
29874 double *work,
29875 double *rwork,
29876 ptrdiff_t *info
29877);
29878
29879/* Source: ztptri.f */
29880#define ztptri FORTRAN_WRAPPER(ztptri)
29881extern void ztptri(
29882 const char *uplo,
29883 const char *diag,
29884 const ptrdiff_t *n,
29885 double *ap,
29886 ptrdiff_t *info
29887);
29888
29889/* Source: ztptrs.f */
29890#define ztptrs FORTRAN_WRAPPER(ztptrs)
29891extern void ztptrs(
29892 const char *uplo,
29893 const char *trans,
29894 const char *diag,
29895 const ptrdiff_t *n,
29896 const ptrdiff_t *nrhs,
29897 const double *ap,
29898 double *b,
29899 const ptrdiff_t *ldb,
29900 ptrdiff_t *info
29901);
29902
29903/* Source: ztpttf.f */
29904#define ztpttf FORTRAN_WRAPPER(ztpttf)
29905extern void ztpttf(
29906 const char *transr,
29907 const char *uplo,
29908 const ptrdiff_t *n,
29909 const double *ap,
29910 double *arf,
29911 ptrdiff_t *info
29912);
29913
29914/* Source: ztpttr.f */
29915#define ztpttr FORTRAN_WRAPPER(ztpttr)
29916extern void ztpttr(
29917 const char *uplo,
29918 const ptrdiff_t *n,
29919 const double *ap,
29920 double *a,
29921 const ptrdiff_t *lda,
29922 ptrdiff_t *info
29923);
29924
29925/* Source: ztrcon.f */
29926#define ztrcon FORTRAN_WRAPPER(ztrcon)
29927extern void ztrcon(
29928 const char *norm,
29929 const char *uplo,
29930 const char *diag,
29931 const ptrdiff_t *n,
29932 const double *a,
29933 const ptrdiff_t *lda,
29934 double *rcond,
29935 double *work,
29936 double *rwork,
29937 ptrdiff_t *info
29938);
29939
29940/* Source: ztrevc.f */
29941#define ztrevc FORTRAN_WRAPPER(ztrevc)
29942extern void ztrevc(
29943 const char *side,
29944 const char *howmny,
29945 const ptrdiff_t *select,
29946 const ptrdiff_t *n,
29947 double *t,
29948 const ptrdiff_t *ldt,
29949 double *vl,
29950 const ptrdiff_t *ldvl,
29951 double *vr,
29952 const ptrdiff_t *ldvr,
29953 const ptrdiff_t *mm,
29954 ptrdiff_t *m,
29955 double *work,
29956 double *rwork,
29957 ptrdiff_t *info
29958);
29959
29960/* Source: ztrevc3.f */
29961#define ztrevc3 FORTRAN_WRAPPER(ztrevc3)
29962extern void ztrevc3(
29963 char *side,
29964 char *howmny,
29965 ptrdiff_t *select,
29966 ptrdiff_t *n,
29967 double *t,
29968 ptrdiff_t *ldt,
29969 double *vl,
29970 ptrdiff_t *ldvl,
29971 double *vr,
29972 ptrdiff_t *ldvr,
29973 ptrdiff_t *mm,
29974 ptrdiff_t *m,
29975 double *work,
29976 ptrdiff_t *lwork,
29977 double *rwork,
29978 ptrdiff_t *lrwork,
29979 ptrdiff_t *info
29980);
29981
29982/* Source: ztrexc.f */
29983#define ztrexc FORTRAN_WRAPPER(ztrexc)
29984extern void ztrexc(
29985 const char *compq,
29986 const ptrdiff_t *n,
29987 double *t,
29988 const ptrdiff_t *ldt,
29989 double *q,
29990 const ptrdiff_t *ldq,
29991 const ptrdiff_t *ifst,
29992 const ptrdiff_t *ilst,
29993 ptrdiff_t *info
29994);
29995
29996/* Source: ztrrfs.f */
29997#define ztrrfs FORTRAN_WRAPPER(ztrrfs)
29998extern void ztrrfs(
29999 const char *uplo,
30000 const char *trans,
30001 const char *diag,
30002 const ptrdiff_t *n,
30003 const ptrdiff_t *nrhs,
30004 const double *a,
30005 const ptrdiff_t *lda,
30006 const double *b,
30007 const ptrdiff_t *ldb,
30008 const double *x,
30009 const ptrdiff_t *ldx,
30010 double *ferr,
30011 double *berr,
30012 double *work,
30013 double *rwork,
30014 ptrdiff_t *info
30015);
30016
30017/* Source: ztrsen.f */
30018#define ztrsen FORTRAN_WRAPPER(ztrsen)
30019extern void ztrsen(
30020 const char *job,
30021 const char *compq,
30022 const ptrdiff_t *select,
30023 const ptrdiff_t *n,
30024 double *t,
30025 const ptrdiff_t *ldt,
30026 double *q,
30027 const ptrdiff_t *ldq,
30028 double *w,
30029 ptrdiff_t *m,
30030 double *s,
30031 double *sep,
30032 double *work,
30033 const ptrdiff_t *lwork,
30034 ptrdiff_t *info
30035);
30036
30037/* Source: ztrsna.f */
30038#define ztrsna FORTRAN_WRAPPER(ztrsna)
30039extern void ztrsna(
30040 const char *job,
30041 const char *howmny,
30042 const ptrdiff_t *select,
30043 const ptrdiff_t *n,
30044 const double *t,
30045 const ptrdiff_t *ldt,
30046 const double *vl,
30047 const ptrdiff_t *ldvl,
30048 const double *vr,
30049 const ptrdiff_t *ldvr,
30050 double *s,
30051 double *sep,
30052 const ptrdiff_t *mm,
30053 ptrdiff_t *m,
30054 double *work,
30055 const ptrdiff_t *ldwork,
30056 double *rwork,
30057 ptrdiff_t *info
30058);
30059
30060/* Source: ztrsyl.f */
30061#define ztrsyl FORTRAN_WRAPPER(ztrsyl)
30062extern void ztrsyl(
30063 const char *trana,
30064 const char *tranb,
30065 const ptrdiff_t *isgn,
30066 const ptrdiff_t *m,
30067 const ptrdiff_t *n,
30068 const double *a,
30069 const ptrdiff_t *lda,
30070 const double *b,
30071 const ptrdiff_t *ldb,
30072 double *c,
30073 const ptrdiff_t *ldc,
30074 double *scale,
30075 ptrdiff_t *info
30076);
30077
30078/* Source: ztrti2.f */
30079#define ztrti2 FORTRAN_WRAPPER(ztrti2)
30080extern void ztrti2(
30081 const char *uplo,
30082 const char *diag,
30083 const ptrdiff_t *n,
30084 double *a,
30085 const ptrdiff_t *lda,
30086 ptrdiff_t *info
30087);
30088
30089/* Source: ztrtri.f */
30090#define ztrtri FORTRAN_WRAPPER(ztrtri)
30091extern void ztrtri(
30092 const char *uplo,
30093 const char *diag,
30094 const ptrdiff_t *n,
30095 double *a,
30096 const ptrdiff_t *lda,
30097 ptrdiff_t *info
30098);
30099
30100/* Source: ztrtrs.f */
30101#define ztrtrs FORTRAN_WRAPPER(ztrtrs)
30102extern void ztrtrs(
30103 const char *uplo,
30104 const char *trans,
30105 const char *diag,
30106 const ptrdiff_t *n,
30107 const ptrdiff_t *nrhs,
30108 const double *a,
30109 const ptrdiff_t *lda,
30110 double *b,
30111 const ptrdiff_t *ldb,
30112 ptrdiff_t *info
30113);
30114
30115/* Source: ztrttf.f */
30116#define ztrttf FORTRAN_WRAPPER(ztrttf)
30117extern void ztrttf(
30118 const char *transr,
30119 const char *uplo,
30120 const ptrdiff_t *n,
30121 const double *a,
30122 const ptrdiff_t *lda,
30123 double *arf,
30124 ptrdiff_t *info
30125);
30126
30127/* Source: ztrttp.f */
30128#define ztrttp FORTRAN_WRAPPER(ztrttp)
30129extern void ztrttp(
30130 const char *uplo,
30131 const ptrdiff_t *n,
30132 const double *a,
30133 const ptrdiff_t *lda,
30134 double *ap,
30135 ptrdiff_t *info
30136);
30137
30138/* Source: ztzrzf.f */
30139#define ztzrzf FORTRAN_WRAPPER(ztzrzf)
30140extern void ztzrzf(
30141 const ptrdiff_t *m,
30142 const ptrdiff_t *n,
30143 double *a,
30144 const ptrdiff_t *lda,
30145 double *tau,
30146 double *work,
30147 const ptrdiff_t *lwork,
30148 ptrdiff_t *info
30149);
30150
30151/* Source: zunbdb.f */
30152#define zunbdb FORTRAN_WRAPPER(zunbdb)
30153extern void zunbdb(
30154 const char *trans,
30155 const char *signs,
30156 const ptrdiff_t *m,
30157 const ptrdiff_t *p,
30158 const ptrdiff_t *q,
30159 double *x11,
30160 const ptrdiff_t *ldx11,
30161 double *x12,
30162 const ptrdiff_t *ldx12,
30163 double *x21,
30164 const ptrdiff_t *ldx21,
30165 double *x22,
30166 const ptrdiff_t *ldx22,
30167 double *theta,
30168 double *phi,
30169 double *taup1,
30170 double *taup2,
30171 double *tauq1,
30172 double *tauq2,
30173 double *work,
30174 const ptrdiff_t *lwork,
30175 ptrdiff_t *info
30176);
30177
30178/* Source: zunbdb1.f */
30179#define zunbdb1 FORTRAN_WRAPPER(zunbdb1)
30180extern void zunbdb1(
30181 const ptrdiff_t *m,
30182 const ptrdiff_t *p,
30183 const ptrdiff_t *q,
30184 double *x11,
30185 const ptrdiff_t *ldx11,
30186 double *x21,
30187 const ptrdiff_t *ldx21,
30188 double *theta,
30189 double *phi,
30190 double *taup1,
30191 double *taup2,
30192 double *tauq1,
30193 double *work,
30194 const ptrdiff_t *lwork,
30195 ptrdiff_t *info
30196);
30197
30198/* Source: zunbdb2.f */
30199#define zunbdb2 FORTRAN_WRAPPER(zunbdb2)
30200extern void zunbdb2(
30201 const ptrdiff_t *m,
30202 const ptrdiff_t *p,
30203 const ptrdiff_t *q,
30204 double *x11,
30205 const ptrdiff_t *ldx11,
30206 double *x21,
30207 const ptrdiff_t *ldx21,
30208 double *theta,
30209 double *phi,
30210 double *taup1,
30211 double *taup2,
30212 double *tauq1,
30213 double *work,
30214 const ptrdiff_t *lwork,
30215 ptrdiff_t *info
30216);
30217
30218/* Source: zunbdb3.f */
30219#define zunbdb3 FORTRAN_WRAPPER(zunbdb3)
30220extern void zunbdb3(
30221 const ptrdiff_t *m,
30222 const ptrdiff_t *p,
30223 const ptrdiff_t *q,
30224 double *x11,
30225 const ptrdiff_t *ldx11,
30226 double *x21,
30227 const ptrdiff_t *ldx21,
30228 double *theta,
30229 double *phi,
30230 double *taup1,
30231 double *taup2,
30232 double *tauq1,
30233 double *work,
30234 const ptrdiff_t *lwork,
30235 ptrdiff_t *info
30236);
30237
30238/* Source: zunbdb4.f */
30239#define zunbdb4 FORTRAN_WRAPPER(zunbdb4)
30240extern void zunbdb4(
30241 const ptrdiff_t *m,
30242 const ptrdiff_t *p,
30243 const ptrdiff_t *q,
30244 double *x11,
30245 const ptrdiff_t *ldx11,
30246 double *x21,
30247 const ptrdiff_t *ldx21,
30248 double *theta,
30249 double *phi,
30250 double *taup1,
30251 double *taup2,
30252 double *tauq1,
30253 double *phantom,
30254 double *work,
30255 const ptrdiff_t *lwork,
30256 ptrdiff_t *info
30257);
30258
30259/* Source: zunbdb5.f */
30260#define zunbdb5 FORTRAN_WRAPPER(zunbdb5)
30261extern void zunbdb5(
30262 const ptrdiff_t *m1,
30263 const ptrdiff_t *m2,
30264 const ptrdiff_t *n,
30265 double *x1,
30266 const ptrdiff_t *incx1,
30267 double *x2,
30268 const ptrdiff_t *incx2,
30269 double *q1,
30270 const ptrdiff_t *ldq1,
30271 double *q2,
30272 const ptrdiff_t *ldq2,
30273 double *work,
30274 const ptrdiff_t *lwork,
30275 ptrdiff_t *info
30276);
30277
30278/* Source: zunbdb6.f */
30279#define zunbdb6 FORTRAN_WRAPPER(zunbdb6)
30280extern void zunbdb6(
30281 const ptrdiff_t *m1,
30282 const ptrdiff_t *m2,
30283 const ptrdiff_t *n,
30284 double *x1,
30285 const ptrdiff_t *incx1,
30286 double *x2,
30287 const ptrdiff_t *incx2,
30288 double *q1,
30289 const ptrdiff_t *ldq1,
30290 double *q2,
30291 const ptrdiff_t *ldq2,
30292 double *work,
30293 const ptrdiff_t *lwork,
30294 ptrdiff_t *info
30295);
30296
30297/* Source: zuncsd.f */
30298#define zuncsd FORTRAN_WRAPPER(zuncsd)
30299extern void zuncsd(
30300 const char *jobu1,
30301 const char *jobu2,
30302 const char *jobv1t,
30303 const char *jobv2t,
30304 const char *trans,
30305 const char *signs,
30306 const ptrdiff_t *m,
30307 const ptrdiff_t *p,
30308 const ptrdiff_t *q,
30309 double *x11,
30310 const ptrdiff_t *ldx11,
30311 double *x12,
30312 const ptrdiff_t *ldx12,
30313 double *x21,
30314 const ptrdiff_t *ldx21,
30315 double *x22,
30316 const ptrdiff_t *ldx22,
30317 double *theta,
30318 double *u1,
30319 const ptrdiff_t *ldu1,
30320 double *u2,
30321 const ptrdiff_t *ldu2,
30322 double *v1t,
30323 const ptrdiff_t *ldv1t,
30324 double *v2t,
30325 const ptrdiff_t *ldv2t,
30326 double *work,
30327 const ptrdiff_t *lwork,
30328 double *rwork,
30329 const ptrdiff_t *lrwork,
30330 ptrdiff_t *iwork,
30331 ptrdiff_t *info
30332);
30333
30334/* Source: zuncsd2by1.f */
30335#define zuncsd2by1 FORTRAN_WRAPPER(zuncsd2by1)
30336extern void zuncsd2by1(
30337 const char *jobu1,
30338 const char *jobu2,
30339 const char *jobv1t,
30340 const ptrdiff_t *m,
30341 const ptrdiff_t *p,
30342 const ptrdiff_t *q,
30343 double *x11,
30344 const ptrdiff_t *ldx11,
30345 double *x21,
30346 const ptrdiff_t *ldx21,
30347 double *theta,
30348 double *u1,
30349 const ptrdiff_t *ldu1,
30350 double *u2,
30351 const ptrdiff_t *ldu2,
30352 double *v1t,
30353 const ptrdiff_t *ldv1t,
30354 double *work,
30355 const ptrdiff_t *lwork,
30356 double *rwork,
30357 const ptrdiff_t *lrwork,
30358 ptrdiff_t *iwork,
30359 ptrdiff_t *info
30360);
30361
30362/* Source: zung2l.f */
30363#define zung2l FORTRAN_WRAPPER(zung2l)
30364extern void zung2l(
30365 const ptrdiff_t *m,
30366 const ptrdiff_t *n,
30367 const ptrdiff_t *k,
30368 double *a,
30369 const ptrdiff_t *lda,
30370 const double *tau,
30371 double *work,
30372 ptrdiff_t *info
30373);
30374
30375/* Source: zung2r.f */
30376#define zung2r FORTRAN_WRAPPER(zung2r)
30377extern void zung2r(
30378 const ptrdiff_t *m,
30379 const ptrdiff_t *n,
30380 const ptrdiff_t *k,
30381 double *a,
30382 const ptrdiff_t *lda,
30383 const double *tau,
30384 double *work,
30385 ptrdiff_t *info
30386);
30387
30388/* Source: zungbr.f */
30389#define zungbr FORTRAN_WRAPPER(zungbr)
30390extern void zungbr(
30391 const char *vect,
30392 const ptrdiff_t *m,
30393 const ptrdiff_t *n,
30394 const ptrdiff_t *k,
30395 double *a,
30396 const ptrdiff_t *lda,
30397 const double *tau,
30398 double *work,
30399 const ptrdiff_t *lwork,
30400 ptrdiff_t *info
30401);
30402
30403/* Source: zunghr.f */
30404#define zunghr FORTRAN_WRAPPER(zunghr)
30405extern void zunghr(
30406 const ptrdiff_t *n,
30407 const ptrdiff_t *ilo,
30408 const ptrdiff_t *ihi,
30409 double *a,
30410 const ptrdiff_t *lda,
30411 const double *tau,
30412 double *work,
30413 const ptrdiff_t *lwork,
30414 ptrdiff_t *info
30415);
30416
30417/* Source: zungl2.f */
30418#define zungl2 FORTRAN_WRAPPER(zungl2)
30419extern void zungl2(
30420 const ptrdiff_t *m,
30421 const ptrdiff_t *n,
30422 const ptrdiff_t *k,
30423 double *a,
30424 const ptrdiff_t *lda,
30425 const double *tau,
30426 double *work,
30427 ptrdiff_t *info
30428);
30429
30430/* Source: zunglq.f */
30431#define zunglq FORTRAN_WRAPPER(zunglq)
30432extern void zunglq(
30433 const ptrdiff_t *m,
30434 const ptrdiff_t *n,
30435 const ptrdiff_t *k,
30436 double *a,
30437 const ptrdiff_t *lda,
30438 const double *tau,
30439 double *work,
30440 const ptrdiff_t *lwork,
30441 ptrdiff_t *info
30442);
30443
30444/* Source: zungql.f */
30445#define zungql FORTRAN_WRAPPER(zungql)
30446extern void zungql(
30447 const ptrdiff_t *m,
30448 const ptrdiff_t *n,
30449 const ptrdiff_t *k,
30450 double *a,
30451 const ptrdiff_t *lda,
30452 const double *tau,
30453 double *work,
30454 const ptrdiff_t *lwork,
30455 ptrdiff_t *info
30456);
30457
30458/* Source: zungqr.f */
30459#define zungqr FORTRAN_WRAPPER(zungqr)
30460extern void zungqr(
30461 const ptrdiff_t *m,
30462 const ptrdiff_t *n,
30463 const ptrdiff_t *k,
30464 double *a,
30465 const ptrdiff_t *lda,
30466 const double *tau,
30467 double *work,
30468 const ptrdiff_t *lwork,
30469 ptrdiff_t *info
30470);
30471
30472/* Source: zungr2.f */
30473#define zungr2 FORTRAN_WRAPPER(zungr2)
30474extern void zungr2(
30475 const ptrdiff_t *m,
30476 const ptrdiff_t *n,
30477 const ptrdiff_t *k,
30478 double *a,
30479 const ptrdiff_t *lda,
30480 const double *tau,
30481 double *work,
30482 ptrdiff_t *info
30483);
30484
30485/* Source: zungrq.f */
30486#define zungrq FORTRAN_WRAPPER(zungrq)
30487extern void zungrq(
30488 const ptrdiff_t *m,
30489 const ptrdiff_t *n,
30490 const ptrdiff_t *k,
30491 double *a,
30492 const ptrdiff_t *lda,
30493 const double *tau,
30494 double *work,
30495 const ptrdiff_t *lwork,
30496 ptrdiff_t *info
30497);
30498
30499/* Source: zungtr.f */
30500#define zungtr FORTRAN_WRAPPER(zungtr)
30501extern void zungtr(
30502 const char *uplo,
30503 const ptrdiff_t *n,
30504 double *a,
30505 const ptrdiff_t *lda,
30506 const double *tau,
30507 double *work,
30508 const ptrdiff_t *lwork,
30509 ptrdiff_t *info
30510);
30511
30512/* Source: zunm22.f */
30513#define zunm22 FORTRAN_WRAPPER(zunm22)
30514extern void zunm22(
30515 const char *side,
30516 const char *trans,
30517 const ptrdiff_t *m,
30518 const ptrdiff_t *n,
30519 const ptrdiff_t *n1,
30520 const ptrdiff_t *n2,
30521 const double *q,
30522 const ptrdiff_t *ldq,
30523 double *c,
30524 const ptrdiff_t *ldc,
30525 double *work,
30526 const ptrdiff_t *lwork,
30527 ptrdiff_t *info
30528);
30529
30530/* Source: zunm2l.f */
30531#define zunm2l FORTRAN_WRAPPER(zunm2l)
30532extern void zunm2l(
30533 const char *side,
30534 const char *trans,
30535 const ptrdiff_t *m,
30536 const ptrdiff_t *n,
30537 const ptrdiff_t *k,
30538 const double *a,
30539 const ptrdiff_t *lda,
30540 const double *tau,
30541 double *c,
30542 const ptrdiff_t *ldc,
30543 double *work,
30544 ptrdiff_t *info
30545);
30546
30547/* Source: zunm2r.f */
30548#define zunm2r FORTRAN_WRAPPER(zunm2r)
30549extern void zunm2r(
30550 const char *side,
30551 const char *trans,
30552 const ptrdiff_t *m,
30553 const ptrdiff_t *n,
30554 const ptrdiff_t *k,
30555 const double *a,
30556 const ptrdiff_t *lda,
30557 const double *tau,
30558 double *c,
30559 const ptrdiff_t *ldc,
30560 double *work,
30561 ptrdiff_t *info
30562);
30563
30564/* Source: zunmbr.f */
30565#define zunmbr FORTRAN_WRAPPER(zunmbr)
30566extern void zunmbr(
30567 const char *vect,
30568 const char *side,
30569 const char *trans,
30570 const ptrdiff_t *m,
30571 const ptrdiff_t *n,
30572 const ptrdiff_t *k,
30573 const double *a,
30574 const ptrdiff_t *lda,
30575 const double *tau,
30576 double *c,
30577 const ptrdiff_t *ldc,
30578 double *work,
30579 const ptrdiff_t *lwork,
30580 ptrdiff_t *info
30581);
30582
30583/* Source: zunmhr.f */
30584#define zunmhr FORTRAN_WRAPPER(zunmhr)
30585extern void zunmhr(
30586 const char *side,
30587 const char *trans,
30588 const ptrdiff_t *m,
30589 const ptrdiff_t *n,
30590 const ptrdiff_t *ilo,
30591 const ptrdiff_t *ihi,
30592 const double *a,
30593 const ptrdiff_t *lda,
30594 const double *tau,
30595 double *c,
30596 const ptrdiff_t *ldc,
30597 double *work,
30598 const ptrdiff_t *lwork,
30599 ptrdiff_t *info
30600);
30601
30602/* Source: zunml2.f */
30603#define zunml2 FORTRAN_WRAPPER(zunml2)
30604extern void zunml2(
30605 const char *side,
30606 const char *trans,
30607 const ptrdiff_t *m,
30608 const ptrdiff_t *n,
30609 const ptrdiff_t *k,
30610 const double *a,
30611 const ptrdiff_t *lda,
30612 const double *tau,
30613 double *c,
30614 const ptrdiff_t *ldc,
30615 double *work,
30616 ptrdiff_t *info
30617);
30618
30619/* Source: zunmlq.f */
30620#define zunmlq FORTRAN_WRAPPER(zunmlq)
30621extern void zunmlq(
30622 const char *side,
30623 const char *trans,
30624 const ptrdiff_t *m,
30625 const ptrdiff_t *n,
30626 const ptrdiff_t *k,
30627 const double *a,
30628 const ptrdiff_t *lda,
30629 const double *tau,
30630 double *c,
30631 const ptrdiff_t *ldc,
30632 double *work,
30633 const ptrdiff_t *lwork,
30634 ptrdiff_t *info
30635);
30636
30637/* Source: zunmql.f */
30638#define zunmql FORTRAN_WRAPPER(zunmql)
30639extern void zunmql(
30640 const char *side,
30641 const char *trans,
30642 const ptrdiff_t *m,
30643 const ptrdiff_t *n,
30644 const ptrdiff_t *k,
30645 const double *a,
30646 const ptrdiff_t *lda,
30647 const double *tau,
30648 double *c,
30649 const ptrdiff_t *ldc,
30650 double *work,
30651 const ptrdiff_t *lwork,
30652 ptrdiff_t *info
30653);
30654
30655/* Source: zunmqr.f */
30656#define zunmqr FORTRAN_WRAPPER(zunmqr)
30657extern void zunmqr(
30658 const char *side,
30659 const char *trans,
30660 const ptrdiff_t *m,
30661 const ptrdiff_t *n,
30662 const ptrdiff_t *k,
30663 const double *a,
30664 const ptrdiff_t *lda,
30665 const double *tau,
30666 double *c,
30667 const ptrdiff_t *ldc,
30668 double *work,
30669 const ptrdiff_t *lwork,
30670 ptrdiff_t *info
30671);
30672
30673/* Source: zunmr2.f */
30674#define zunmr2 FORTRAN_WRAPPER(zunmr2)
30675extern void zunmr2(
30676 const char *side,
30677 const char *trans,
30678 const ptrdiff_t *m,
30679 const ptrdiff_t *n,
30680 const ptrdiff_t *k,
30681 const double *a,
30682 const ptrdiff_t *lda,
30683 const double *tau,
30684 double *c,
30685 const ptrdiff_t *ldc,
30686 double *work,
30687 ptrdiff_t *info
30688);
30689
30690/* Source: zunmr3.f */
30691#define zunmr3 FORTRAN_WRAPPER(zunmr3)
30692extern void zunmr3(
30693 const char *side,
30694 const char *trans,
30695 const ptrdiff_t *m,
30696 const ptrdiff_t *n,
30697 const ptrdiff_t *k,
30698 const ptrdiff_t *l,
30699 const double *a,
30700 const ptrdiff_t *lda,
30701 const double *tau,
30702 double *c,
30703 const ptrdiff_t *ldc,
30704 double *work,
30705 ptrdiff_t *info
30706);
30707
30708/* Source: zunmrq.f */
30709#define zunmrq FORTRAN_WRAPPER(zunmrq)
30710extern void zunmrq(
30711 const char *side,
30712 const char *trans,
30713 const ptrdiff_t *m,
30714 const ptrdiff_t *n,
30715 const ptrdiff_t *k,
30716 const double *a,
30717 const ptrdiff_t *lda,
30718 const double *tau,
30719 double *c,
30720 const ptrdiff_t *ldc,
30721 double *work,
30722 const ptrdiff_t *lwork,
30723 ptrdiff_t *info
30724);
30725
30726/* Source: zunmrz.f */
30727#define zunmrz FORTRAN_WRAPPER(zunmrz)
30728extern void zunmrz(
30729 const char *side,
30730 const char *trans,
30731 const ptrdiff_t *m,
30732 const ptrdiff_t *n,
30733 const ptrdiff_t *k,
30734 const ptrdiff_t *l,
30735 const double *a,
30736 const ptrdiff_t *lda,
30737 const double *tau,
30738 double *c,
30739 const ptrdiff_t *ldc,
30740 double *work,
30741 const ptrdiff_t *lwork,
30742 ptrdiff_t *info
30743);
30744
30745/* Source: zunmtr.f */
30746#define zunmtr FORTRAN_WRAPPER(zunmtr)
30747extern void zunmtr(
30748 const char *side,
30749 const char *uplo,
30750 const char *trans,
30751 const ptrdiff_t *m,
30752 const ptrdiff_t *n,
30753 const double *a,
30754 const ptrdiff_t *lda,
30755 const double *tau,
30756 double *c,
30757 const ptrdiff_t *ldc,
30758 double *work,
30759 const ptrdiff_t *lwork,
30760 ptrdiff_t *info
30761);
30762
30763/* Source: zupgtr.f */
30764#define zupgtr FORTRAN_WRAPPER(zupgtr)
30765extern void zupgtr(
30766 const char *uplo,
30767 const ptrdiff_t *n,
30768 const double *ap,
30769 const double *tau,
30770 double *q,
30771 const ptrdiff_t *ldq,
30772 double *work,
30773 ptrdiff_t *info
30774);
30775
30776/* Source: zupmtr.f */
30777#define zupmtr FORTRAN_WRAPPER(zupmtr)
30778extern void zupmtr(
30779 const char *side,
30780 const char *uplo,
30781 const char *trans,
30782 const ptrdiff_t *m,
30783 const ptrdiff_t *n,
30784 const double *ap,
30785 const double *tau,
30786 double *c,
30787 const ptrdiff_t *ldc,
30788 double *work,
30789 ptrdiff_t *info
30790);
30791
30792#endif /* !defined(MW_HAVE_LAPACK_DECLS) && defined(_LAPACKE_H_) %#ok */
30793#ifdef __cplusplus
30794 } /* extern "C" */
30795#endif
30796
30797#endif /* mllapack_h */
30798